perl -ne 'BEGIN {open(N,">>names")};/(\w+) (\w) (\w+)/ || exit;print N + "$3\t$1\t$2"' [download]
In reply to Re: A first one-liner by MZSanford in thread A first one-liner by joecamel