Select Code to Download

use strict;

...
$line =~ s/([^\s\w])/'&#'.ord($1).';'/ge;

print "$line\n";

s/([^ a-zA-Z0-9])/'&#'.ord($1).';'/ge   # a single, literal space