#!/usr/bin/perl
use strict;
use warnings;

my $html = "<div id='cont'>eins<div>zwei<div>drei<div>vier</div></div></div></div>";

content($html, "cont");

print "\n";

sub content {
        my $html = shift;
        my $name = shift;
        $html =~ m/.*?\<(.*?).*?\s+(?:id|name)\s*=\s*['"]$name['"].*?\>(.*)\<\/\1\>.*?/s;
        my $tag = $1;
        my $content = $2;
        my $i = 0;
        my ($main, $counter);
        $content =~ m/(.*?)\<\/$tag\>/s;
        $main = $1;
        if($main =~ m/.*?\<$tag.*?\>.*?/) {
                $counter = () = $content =~ m/\<$tag.*?\>/g;
        } else {
                $counter = () = $main =~ m/\<$tag.*?\>/g;
        }
        my @end = split /\<\/$tag\>/, $content;
        for(0..$#end) {
                if($_ == $#end-1) {
                        $end[$_] = $end[$_]."</$tag>";
                }
        }
        print $counter . " mal\n";
        for(0..$counter) {
                print $end[$_];
        }
}