open FH,'a.txt';
@data=<FH>;
foreach $dat (@data){
$dat =~ s/\^O/ /g;
}