open FH,'ent.txt';
@data=<FH>;

##</code><code>##

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