in reply to Asked to put a square peg in a round hole, I would:
my $peg = 4 + 4 + 4 + 4 ; my $hole = 2 * 3.14159 * 2.829; print "I'm in!\n" if $peg < $hole; [download]