if ($row =~ m{ <(\b[^>]+)> (.*?) </\1> }ix)