Help for this page

Select Code to Download


  1. or download this
    use File::Slurp;

...
    print "LOG: \t Original line: $orig_line\n";
    print "LOG: \t Replaced line: $line\n";
}
  2. or download this
    Foolius Caesar
Footholomew Cubbins
No changes here
Just another barrage of text
  3. or download this
    LOG: 1 data_file
LOG:      Original line: Foolius Caesar
...
LOG: 2 data_file
LOG:      Original line: Footholomew Cubbins
LOG:      Replaced line: bartholomew Cubbins