~$ re.pl $ my $perl; $ $perl == "ugly"; Argument "ugly" isn't numeric in numeric eq (==) at (eval 271) line 6.