You can remove parents then:

print/\w/gfor<DATA>
[download]

$anarion=\$anarion;

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