しまった、失敗。
$mes =~ s/&lt;(span.*?)&gt;/<\1>/g;