$_="four fifth two frog left leaf fred wolf";
my @F=m/\b[^f].*?f.*?\b/g;
print "@F";