my ($pattern,$id) = (split /\s+/, $_)[0,4];