Well here's another way, when you want only a part of a list, grep comes to my mind:

grep { ++$i % 2 } /((.)\2*)/g
[download]

$anarion=\$anarion;

s==q^QBY_^=,$_^=$[x7,print