my $str = '<Data1>Data</Data1><Data2></Data2><Data3> < </Data3>';
$str =~ s/>(.*?)<(.*?)<\//>$1&lt;$2<\//g;