If you want to move forward or backward in the file,use seek, or if you know the line number skip all lines before $. is that line.

$anarion=\$anarion;

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