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