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