perl -pe "%f = qw{ < < > > }; s{[^><]\K([><])([^\w])}{ $f{$1}$2}g; " < in > out