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

$inverted = invert( 'Just Another Perl Hacker!' );

print $inverted;
237