I think you want something like:

@words=grep{!/\d/}split;
[download]

$anarion=\$anarion;

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