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