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