my $a = 'hallo</ende>blubb</foo>';
my @b = $a =~ /.*?<\/.*?>/g;
print join(',', @b);