sub convert {
     my $in = shift;
     return ( '&#' . ord($in) . ';');
}

$line =~ s/([\&amp;\'\;\\\"\|\*\?\~\^\(\)\[\]\{\}\$\n\r\<\>])/&amp;convert($1)/g;