http://www.perlmonks.org?node_id=81435


in reply to Can Perl add single quotes?

how about:
sub reality_test { do { my $testme=shift; #do tests print "$testme was less than allowed\n" if test fails; } while(@_); }
That way, you don't use globals to pass to your subs, and you get variable interpolation, as '$var in single quotes' doesn't get expanded.

(argh, Opera managed to munge that a bit. corrected)

--
Me spell chucker work grate. Knead grandma chicken.