$row = "<Name>Test</Name>";
if($row =~ /<(\b[^>])+>(.*?)<\/$1>/ig)
{
  $sTag = $1;
  $sValue = $2;
}