Select Code to Download

use strict;
use warnings;
...
}
print "$counter replacements\n";
print "@strings\n";

use strict;
use warnings;
...
$counter--;
print "$counter replacements\n";
print "@strings\n";