$_=lines;say <yukiko oda>[s:g/\w//%2]