in reply to Can this If/Else be condensed into a 1 liner with a trailing If?
How about....
while($x=<STDIN> and $x !~ /^\s*\d+\s*$/) { print "Enter a number\n" } [download]
$japh->{'Caillte'} = $me;