Select Code to Download

#!/usr/bin/perl -W
...
# to see what the subst did.
print $_;

my $result;
$_ = $string
...
# ((1 char) followed by 
# (zero or more whitespace[don't return])
# match one or more)