in reply to readline() on unopened filehandle

Because $FH isn't the filehandle, but FILE is
last OUTER unless defined($line_B = <FILE>); # this should do

$\=~s;s*.*;q^|D9JYJ^^qq^\//\\\///^;ex;print