use warnings;
use strict;

my $var1 = "";
my $var0 = "";

1 ? $var1 : $var0 = "Hello ";
0 ? $var1 : $var0 = "World\n";

print $var1.$var0;