perl -p -i -e 's/^(.*?)\s*(\w+)\s*$/$2, $1\n/' list.txt