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