#!perl -p0 s/\B/>/g;s/(.*) .*(?=.\1)/v/g