my $text =$data[0];
$text =~ s!\r?\n!<br />\n!g;