( my $newblob = pack 'N*', $pixellist =~ /\d+/g ) =~ s/.(...)/$1/sg;