$ perl -e 'print pack q{v*}, 0 .. 31;' > spw1006361.bin $ ls -l spw1006361.bin -rw-rw-r--. 1 johngg johngg 64 Nov 29 22:43 spw1006361.bin $ hexdump -C spw1006361.bin 00000000 00 00 01 00 02 00 03 00 04 00 05 00 06 00 07 00 |................| 00000010 08 00 09 00 0a 00 0b 00 0c 00 0d 00 0e 00 0f 00 |................| 00000020 10 00 11 00 12 00 13 00 14 00 15 00 16 00 17 00 |................| 00000030 18 00 19 00 1a 00 1b 00 1c 00 1d 00 1e 00 1f 00 |................| 00000040 $ perl -Mstrict -Mwarnings -E ' > my @vals = do { > local $/; > open my $binFH, q{<}, q{spw1006361.bin} or die $!; > unpack q{v*}, <$binFH>; > }; > $_ *= 2 for @vals; > open my $binOutFH, q{>}, q{spw1006361.bin} or die $!; > print $binOutFH pack q{v*}, @vals; > close $binOutFH or die $!;' $ hexdump -C spw1006361.bin 00000000 00 00 02 00 04 00 06 00 08 00 0a 00 0c 00 0e 00 |................| 00000010 10 00 12 00 14 00 16 00 18 00 1a 00 1c 00 1e 00 |................| 00000020 20 00 22 00 24 00 26 00 28 00 2a 00 2c 00 2e 00 | .".$.&.(.*.,...| 00000030 30 00 32 00 34 00 36 00 38 00 3a 00 3c 00 3e 00 |0.2.4.6.8.:.<.>.| 00000040 $