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