Help for this page
$re =~ s/_/.+/;
/\b$re\b/ and print "$stem: $_\n" for @array2;
$re =~ s/_/./;
print "$stem: $1\n" while $words =~ /\b($re)\b/g;
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 (524 votes). Check out past polls.