Select Code to Download

#!perl -wl
@ARGV=qw(mig main_generator migrations django_migrations django_admin_
+log myfoo\bar.txt );
...
                ? sprintf'%08x%08x%s',$+[0]-$-[0],$-[0],$_
                : ()
            }@ARGV)

#!perl -wl
@ARGV=qw(mig main_generator migrations django_migrations django_admin_
+log myfoo\bar.txt );
...
#234567890123456789012345678901234567890123456789012345678901234567890
+12345678901234567890
#-- count from here
($i=shift)=~s#(.)(?!\z)#[$1].*?#g;print substr $_,16 for sort(map{/($i
+)/?sprintf'%08x%08x%s',$+[0]-$-[0],$-[0],$_:()}@ARGV)