map{$_=$'.$`,print$1while/$1(.)\K/s}<>