#! /tools/perl/5.8.8/linux/bin/perl
use strict;
use warnings;

while (<>)
{
        if ($_ =~ /^\s\s(\S+)*delay\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/)
        {
                print "$_";
        }
}