my @pargs = split /\|/, $id;