use Data::Dumper;
$_=q(hallo</ende>blubb</foo>);
print Dumper [split m#</.*?>#]