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