You gotta hate those edge cases! Having just had a look at your example you are passing an array not a string so it looks like a different problem.

38 strokes with fix in 35 strokes.

sub invert{
    #2345678901234567890123456789012345678
    $_=pack'C*',1..255;s/[\Q$_[0]\E]//g,$_
}
print invert('/just Another Bug to Fix!/');

# 35 strokes using @_ hack

sub invert{
    #2345678901234567890123456789012345
    $_=pack'C*',1..255;s/[\Q@_\E]//g,$_
}
print invert('/just Another Bug to Fix!/');
[download]

I'm passing an array? I'm using $_[0] which is where the argument to the function is, and I'm iterating over the list 1..255, but I'm not receiving or returning an array from the function. And I am using \Q in the regex.
_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

@_ hack?

I suppose, though it's expected behavior. Within the RE @_ is interpolated just like "@array\n" would be. Since @_ should only have one argument, there will be only one element in the list. Thus, there is no extra space character interpolated. If @_ contained more than one element, that would result in a space character being placed in the character class, which would cause the space character to be absent from the inverted string even if the original string never had a space in it. ...so it's easy to break this solution, but assuming the sub is called as intended, it will only have one arg, and the point will be moot.

I guess it is a hack. ;)




Dave