foreach my $i (126 ... 255) {
        $subs{$i} = chr($i);
    }