while (my $line = && $line !~ /SEQ.../) ##

##

 && $line !~ /SEQ.../
##

##

while ((my $line = ) && ($line !~ /SEQ.../)) 
##

##

Global symbol "$line" requires explicit package name