求助一个perl的问题

请教一下一个关于匹配的问题，如下：
TYSND1|NM_173555        se_10909      9606    750     757     690     697   440     m8:1a   x       1a      10090 10116 9606 9615
TYSND1|NM_173555        se_10909      9606    844     851     764     771     441     m8:1a   x       m8      9606 9615
........

一共很多行数据，我想把最后一个数据项包含4个数字的整行显示出来（如上面第一行最后一项包括 10
090 10116 9606 9615），而舍弃不满足条件的行（如第二行只有两个数）请问应该怎么写？

谢谢！！感激涕零

open(DATA, '< data.txt') or die $!;
   while ( <DATA> ) {
      chomp($_);
      /\d{4}$/ && print;
   }
close(DATA) or die $!;

楼上的，你的匹配不对吧

先谢谢2楼的朋友～
但是好像试了一下不行啊，改成每行读取也不行....
能再帮我想想么？

print if /(\d+\s+){3}\d+$/;

我写了一个，但是不敢保证一定可以

#!/usr/bin/perl
use strict;
use warnings;

open FILE, "<datafile"
    or die "Can not open file: $!\n";
foreach my $line (readline FILE) {
    if ($line =~ /(\d((\d*)\s){4}\n)*?/) {
        print $line;
    }
}
close FILE;

/(\d+\s+){3}\d+$/
里面的3是不是要改成4啊？

你试试不就知道了嘛

#!/usr/bin/perl

use strict;
use warnings;

while (<DATA>) {
        print if /(\d+\s+){3}\d+$/;
}
__DATA__
TYSND1|NM_173555        se_10909      9606    750     757     690     697   440     m8:1a   x       1a      10090 10116 9606 9615
TYSND1|NM_173555        se_10909      9606    844     851     764     771     441     m8:1a   x       m8      9606 96

赞楼上的～～
这个正则的匹配我一直没匹配上 ，还需要努力学习啊

thanks