perl -n -e 's/([^:]+)([^:]+)/$2$1/, print unless /bala/;' file.txt