my $string = 'defg';

sub invert {
    #234567890123456789012345678901234567890
    join'',grep/[^\Q@_\E]/,map{chr}1..255
}

print invert($string);