Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"$_ = '/foo/bar/baz/bat';
...
 print qq{'$1'} if m{([^/]+)$};
"
'bat'