http://qs321.pair.com?node_id=608886


in reply to Re: Math::XOR problem
in thread Math::XOR problem

TIMTOWTDI: 
my $msg = pack('C'.@s, @s);

[download]
Or even 'C*' as template.

In Section Seekers of Perl Wisdom