in reply to words wich ends with "f"
I'd go with something like this (yeah, TIMTOWTDI):
$s = "four fifth two frog left leaf fred wolf";
@f = grep (/^[^f]\w*f\w*$/, split(' ', $s));
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 (534 votes). Check out past polls.