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