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