#!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)