perl -le '$_="-r--r--r-- date user group blah and stuff.txt"; s/^(.+ )(.+? ?.+?)$/$2/; print '