Help for this page
> perl -wle '
q(foo) =~ m/.*/;
> perl -le ' my $incr = 0;
q( print $incr++, $& and " stew" =~ /.*/ and eval $& until $incr > 10)
+ =~ /.*/;
eval $&; # prints '0 ( guesswhat) '..'10 stew' (versions differ on
Once (shame on you!)
Twice (shame on me!)
More often than I'd like to be
All the time
Just when answering stupid polls
Who you callin' a fool?
I refuse to vote in this ridiculous poll
Results (517 votes). Check out past polls.