Select Code to Download

$a = 123;
print $a =~ m/^\d+$/, "\n";
...
} else {
    print "undef";#not going this loop
}

sub true_false {
    if (shift()) {
...
    print "false\n";
}