sub My_Regex
{
	my($raw_text, $tag) = @_;
	
	$raw_text =~ /<$tag>{1}(.*)(<\/$tag>){1}/;
	my $output = $1;
	print "OUTPUT: $output\n";
}

##</code><code>##

sub My_Regex
{
	my ( $raw_text, $tag ) = @_;
	return $raw_text =~ /<$tag>(.*?)<\/$tag>/s ? $1 : '';
}