Help for this page

Select Code to Download


  1. or download this
    use warnings;
    use strict;
    ...
    $rep->finish;
    
    say "Count=$Count";
    
  2. or download this
    perl -wMstrict -i -nle 's/PAT/REPL/g and $a++;print}{print $a//0' FILE