if (my @ret = split /ZSP/, $global[$x]) {
        $global[$x] = join ' ', @ret;
    }