这样有符合需求吗?
#!/usr/bin/perl
while (<DATA>) {
next if (/^\n/);
if (/START/ ... /STOP/) {
if (/^(\d\d):(\d\d):(\d\d)\.(\d{3}).*(<

推喔！好强大的 three dots range operator(常常会忘记)

哇，结果是我要的！谢谢大大但是我有个问题想请教一下，我有办法带出后面id：123444吗，我在后面加$6$7都没有办法带出来

加在CONTACT)后面 .*(ID:\d{1,})>$/print $6 ;