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