這樣有符合需求嗎?
#!/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 ;