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