foreach (@line){
$_ =~ s/\</\&lt\;/g;
$_ =~ s/\>/\&gt\;/g;
}