map{print$&while/[^
-$&]|
/g}<>