请问perl的语法异常

请教perl的语法错误
use   strict;
use   warnings;
use   re   'debug ';

open   IN_FILE,   " <a.log "   or   die( "Can 't   open   a.log ");
open   OUT_FILE,   "> Server.log "   or   die( "Can 't   open   Server.log ");
open   OUT_FILE2,   "> Sending.log "   or   die( "Can 't   open   Sending.log ");

my   $line;
while(1)
{
        $line   =   <INFILE> ;
        if(not   defined($line))
  last;                                 //wrong
        if($line   =~   /Server/)
                print   OUT_FILE1   $line;//wrong
        if($line   =~   /Sending/)
                print   OUT_FILE2   $line;//wrong
}
close   IN_FILE;
close   OUT_FILE;
close   OUT_FILE2;

--------------------
请问哪里有问题哦，新学，不懂。用的PerlEdit

[解决办法]
INFILE之类的拼写错误自己纠正。