<>;$z=2e6;$/=$",$z-=$-=$z-$_-<>for@X=glob<>;print$_<$z?$_:$z,$/for$z,0,@X,$z