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));
1. Keep it simple
2. Just remember to pull out 3 in the morning
3. A good puzzle will wake me up
Many. I like to torture myself
0. Socks just get in the way
Results (309 votes). Check out past polls.