in reply to Pattern mattching

$a = "+000000";
print "correct" if ($a =~ m#\+\d{6}#gsi)

[download]

In Section Seekers of Perl Wisdom