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