Select Code to Download

while ( chomp( my $line = <DATA> ) ) {
  $line =~ s/(Fred)/"$1"/i;
...
Hello, my name is FRED!
fREd went to the store.
Nobody was home, except for freD.

my $tag = 'jane';
while ( <DATA> ) {
...
__DATA__
- John is following jane
- John is following Jane