$x =~ m/( (?&DIGIT)+ ) (?(DEFINE) (?:[0-9]) ) /smx