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

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

In Section Seekers of Perl Wisdom