Help for this page

Select Code to Download


  1. or download this
    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.
  2. or download this
    my $tag = 'jane';
while ( <DATA> ) {
...
__DATA__
- John is following jane
- John is following Jane