print "Hello World!\n";
my $a = "no";
if ($a =~ /0|nein/) {
    print "no";
}