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