perl -pl -e 'next if /bala/;s/([^:]+)([^:]+)/$2$1/' file.txt