Select Code to Download

for (127 .. 255) {
 my $regexp = "s/\\x" . sprintf("%lx", $_) . "/&#$_;/g";
 eval "$block =~ $regexp;";
}