Help for this page
#!/bin/perl use v5.14; ... path($in)->copy($in =~ s/(\.\w+)?$/.out/r); __END__
#!/bin/perl use v5.14; ... $out->append("$line\n"); } __END__