$a = "+000000"; print "correct" if ($a =~ m#\+\d{6}#gsi) [download]
In reply to Re: Pattern mattching by gube in thread Pattern mattching by Anonymous Monk