Help for this page

Select Code to Download

Select or download this
/(?:(\d)\w))+\d\w/

Select or download this

my @vars;
$string =~ /(?{local @1 = ();}
             (?:( (\d) (?{ local @1 = (@1, $1) })
                   \w )+
                 \d\w
             (?{ @vars = @1 /x