my @Z;
while (<DATA>) {
    my @token = split ' ';
    if ( $token[0] eq 'Z' ) {
        push @Z, [ $token[1] ]
           if !$Z[-1] || $token[1] != $Z[-1][1] + 1;
        $Z[-1][1] = $token[2];
    }
}