#!perl -p
s/\+-|-\+|<>|><//&&redo