$name =~ s/\</\&lt\;/g
$name =~ s/\>/\&gt\;/g