Select Code to Download

use warnings;
use strict;
...
        print $ord > 31 && $ord < 128 ? $char : '?'
    }
}

use warnings;
use strict;
...
    }
    print "\n";
}