Select Code to Download

$str = join '', map{chr}0..255;
$str =~ tr/\11\12\40-\176//cd;       # ascify aka remove all crap char
+s
print $str, $/;

while (<DATA>) {
    while ( m/([^\x09\x0A\x20-\x7E])/g ) {
        printf "Found chr %d on line %d at pos %d\n", ord($1), $., pos
+($_);
    }
}