foreach $dat(@data){
$text =~ s/&/&/g;