#!/usr/bin/perl

# http://perlmonks.org/?node_id=1131533

@ARGV=qw(mig main_generator migrations django_migrations
  django_admin_log myfoo\bar.txt );

#        1         2         3         4         5         6         7         8
#2345678901234567890123456789012345678901234567890123456789012345678901234567890
#-- count from here
$p?/$p/&&($a["@+"+9*length$&].=$_.$/):($p=s/\B/.*?/gr)for@ARGV;print@a