Select Code to Download

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

use strict;
use warnings;
...
}

# here, all warnings are active again.