if ($s1 =~ /^[0-9][A-Z]/)  { print "fängt mit ziffer und großbuchstabe an" }