$pad =~ s/(?:z(.)(?:z.)+)|(?:.(.))/$1$2/g;