Select Code to Download

my @matches = do { local $str = $_; map { substr( $str, $-[$_], $+[$_]
+ - $-[$_] ) } 1..$#-; }