Perl code - 5 lines

Link:

Perl, pasted on Feb 4:

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

Output:

1	Hello World!