Select Code to Download

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

my $string = 'defg';

...
}

print invert($string);