$ perl -E '
$text = q{asd<TAG>dsyuhf</TAG>urrh};
$item = $1 if $text =~ m{<TAG>([^<]+)</TAG>};
say $item;'
dsyuhf
$

##</code><code>##

$ perl -E '
$text = q{asd<TAG>dsyuhf</TAG>urrh<TAG>dsvnnhf</TAG>urubb};
$item = $1 if $text =~ m{<TAG>(.*)</TAG>};
say $item;'
dsyuhf</TAG>urrh<TAG>dsvnnhf
$