#!/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.";
}