#!/usr/bin/perl
use strict;
use warnings;
my $html = "
";
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[$_];
}
}