my $newblob = join '', map substr( pack( 'N', $_ ), 1 ), $pixellist =~ /\d+/g;


##</code><code>##

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