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