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)); print "@f";
--
b10m
b10m
In Section
Seekers of Perl Wisdom
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)); print "@f";