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