small remark ... you could have had an easier life by writing

print "\$1 is $1, \@- contains ", join(', ', @-), "\n";
print "\$2 is $2, \@+ contains ", join(', ', @+), "\n";
[download]

There is still the chance of typos, but it's decreased and easier detected.

-- Hofmator