#!perl -p
s/>(.*)</<$1>/&&redo