> Bareword found where operator expected at 1.pl line 9, near "3328B0Z" (Missing operator before B0Z?)

After wrapping quotes around the barewords, I'm getting the whole list back. The problem is that $data is an array of arrays, i.e. in the loop, $var is not a string, but an array ref, so grep is trying to match /ARRAY(0xcc7cb8)/ etc.

For cleaner solution, see uniq in List::Util .

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]