undef $/;
use open IO=> ':raw';

$src= shift or die "No (unskinned) master input file.\n";
$dst= pop or die "No (skinned) output file.\n";

open SRC, $src or die "Can't open $src: $!\n";
open DST, "> $dst" or die "Can't write to $dst: $!\n";

$data= <SRC>;

while (<>) {
$off= 0;
$off= $_ > $off ? $_ : $off for $ARGV =~/(\d+)/g;
substr($data, $off, length)= $_;
}

print DST $data or die "problem writing to $dst: $!\n";