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