why not use a regex with the /g modifier,something like:

@users=/\b(\S+)\@spied\.co\.nz/g
[download]

$anarion=\$anarion;

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