Select Code to Download

sub My_Regex
{
...
    my $output = $1;
    print "OUTPUT: $output\n";
}

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