while ( chomp( my $line = <DATA> ) ) {
  $line =~ s/(Fred)/"$1"/i;
  print "$^C
root@who1# perl
while ( my $line = <DATA> ) {
  $line =~ s/(Fred)/"$1"/i;
  print $line;
}
__DATA__
Hello, my name is FRED!
fREd went to the store.
Nobody was home, except for freD.