Help for this page
use strict; use warnings; ... print "Matched using $reg: $1\n" if $str =~ $reg; } }
Matched using (x\d{3,}?): x123 Matched using (x\d{3,}?): x123 ... Matched using (x\d{3,}): x123 Matched using (x\d{3}): x123 Matched using (x\d{3}): x123