in reply to perl -pl with next?
perl -n -e 's/([^:]+)([^:]+)/$2$1/, print unless /bala/;' file.txt [download]