Help for this page
$a = 123; print $a =~ m/^\d+$/, "\n"; ... } else { print "undef";#not going this loop }
sub true_false { if (shift()) { ... print "false\n"; }