Select Code to Download

use warnings; use strict;

...
printf "after:\n'%s'\n" , $text;

sub usage { die "specify strings for -in & -out options.\n"; }