note
b10m
<p>
I'd go with something like this (yeah, TIMTOWTDI):
</p>
<code>
$s = "four fifth two frog left leaf fred wolf";
@f = grep (/^[^f]\w*f\w*$/, split(' ', $s));
print "@f";
</code>
<div class="pmsig"><div class="pmsig-295259">
-- <br />
[b10m]
</div></div>
692941
692941