my $string = 'abcde';
sub invert {
    #234567890123456789012345678901234567890
    join"",grep/[^\Q$_[0]\E]/,map{chr}1..255
}
print invert($string);