Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
my $html = "&amp;gt;lt;amp; something else &lt;gt;amp;something else ;
+";
$html =~ s|&(([^ ;]+;)+)| join '', map { "&$_;" } split /;/, $1 |ge;
print "$html\n";