#! perl -sw
use strict;

open IN, '<', $ARGV[ 0 ] or die $!;
open OUT, '>:raw', $ARGV[1] or die $!;

my $pos = 0;
print( OUT pack 'NQ', m[^(\d+),], $pos ), $pos = tell( IN ) while <IN>;

close OUT; close IN;