$a=q{Startand moreand end}; @l=split qr{(]*>)}, $a; print join "\n", @l;