I already checked that before post.

I don't want to ignore warnings, I want to save it into a variable, but without the begin i can't.

$anarion=\$anarion;

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