$ perl -e '($_)="foobar]"=~/(f.*?)\b/;print'
foobar