my $string = shift();
my $tag = shift();
my $content;

$string =~ /<$tag>(.*)<\/$tag>/ism;
$content = $1;

return ( $content );