Select Code to Download

use warnings;
use strict;
...
$rep->finish;

say "Count=$Count";

perl -wMstrict -i -nle 's/PAT/REPL/g and $a++;print}{print $a//0' FILE