Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"use List::Util qw(max);
...
'C:\foo\bar\ABCxyz\baz\boff\ABCxyz\xyzzy.zy\a.b\myStuff.txt' -> 'ABCxy
+z\xyzzy.zy\a.b\myStuff.txt'
'C:\myStuff.txt'                                             -> 'C:\my
+Stuff.txt'
'C:\totally\bogus\myStuff.txt'                               -> 'C:\to
+tally\bogus\myStuff.txt'