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