in reply to perl -pl with next?

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

holli, regexed monk