##
$s=9;$c='abcdef';for(<>){chop;$w=$_;$l=y///c;(5$l||next;$s=$l;$n=$w}print$n
##
##
$s=9;for(<>){chop;$w=$_;$l=y///c;(5$l||next;$s=$l;$n=$w}print$n
##
##
$s=9;for(<>){chop;$w=$_;$l=y///c;(5$l&&do{$s=$l;$n=$w}}print$n
##
##
$s=9;for(<>){$w=$_;$l=y///c;(6=$l&&do{$s=$l;$n=$w}}print$n