#!/usr/bin/perl
open FH,'ent.txt';
@data=<FH>;
$text='&bush&amp;';

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