if( ($check =~ /\S([a-zA-Z]{7}[0-9]{1})(\b$vorname\b)(\b$nachname\b))[^äöüÄÖÜ]/i) ) {
print "super";
}
else {
print "\n\n\n\t\tPasswort nicht gueltig!\n\n\n";
}

if ($check =~ /[a-z]/ and 
    $check =~ /[A-Z]/ and 
    $check =~ /[0-9]/ and 
    $check !~ /\b$vorname\b/ and 
    $check !~ /\b$nachname\b/ and 
    $check =~ /^[a-zA-Z0-9]+$/
    ) {
    print "super";
} else {
    print "Passwort ungültig.";
}

#!/usr/bin/perl

print "Vorname: "; chop ($vorname=<STDIN>);
print "Nachname: "; chop ($nachname=<STDIN>);

print "Passwort: "; chop ($passwort=<STDIN>);

if ($passwort =~ /[a-z]/ and 
   $passwort =~ /[A-Z]/ and 
   $passwort =~ /[0-9]/ and 
   $passwort !~ /\b$vorname\b/ and 
   $passwort !~ /\b$nachname\b/ #and 
   #$passwort =~ /^[a-zA-Z0-9]+$/
   ) {
   print "super";
} 
else {
   print "Passwort ungültig.";
}