#!perl -pal
$_=a;$_++while/[f-z]/+"@F"=~$_