$s = "four fifth two frog left leaf fred wolf";
@f = grep (/^[^f]\w*f\w*$/,  split(' ', $s));
print "@f";