perl -pi.bak -e 's/(.*),(.*)/$2 $1/' test.txt