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