[求助]while读入数据，操作取舍问题,谢谢

[求助]while读入数据，操作取舍问题,谢谢
文件名为datafile的内容如下：

2008-12-14
N0.1 group
A       B    C     D
37898..39115    -    405    16128032    
39244..40386    -    380    16128033    
40417..41931    -    504    16128034    
42403..43173    +    256    90111081   
45463..45750    +    95    16128038    
45807..47138    +    443    16128039    
47246..47776    +    176    16128040    
部分程序为
my $file='datafile';
open (FH,$file) ||die "Cannot open $file,$!";

while (<FH>)
{
if ($_=~//)
@data=split(/\s/,$_);
my @A= split(/\.\./,$data[0]);
my $B= $data[1];
my $C= $data[2];
my $D= $data[3];
......................
.....................
}
如何做到不对前三行操作，即不管
2008-12-14
N0.1 group
A       B    C     D
这三行。
请高手支招，谢谢！

使用$.变量，代表着文件内.
使用$.变量，代表着文件内容所在的行。
next if ($. <= 3);