The following is untested, but still pretty cool.

perl -ne 'BEGIN {open(N,">>names")};/(\w+) (\w) (\w+)/ || exit;print N
+ "$3\t$1\t$2"'
[download]

---

Calm begets calm