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