perl -p -e 'my $s = chr(39); s/^(\d+)\n/$s$1$s,/'