$str = "Only change valid codes 128 -42 33\n";
print $str;
$str =~ s/([+-]?\d+)/ ($1 > 0 and $1 < 128) ? chr $1 : $1 /eg;
print $str;