Perl code by skeletonkey - 7 lines

Link:

skeletonkey - Perl, pasted on Oct 1:

my $x = condition() ? "a" : "b";
print "x is $x\n";

sub condition {
    # return 1; # true
    return 0; # false
}

Output:

x is b