Select Code to Download

print OUT $_;

print ;

print "\$in_file: $in_file \n";
print "\$out_file: $out_file \n";
print "\$pattern : $pattern\n";
print "\$replacement:  $replacement\n";