perl -ple 'goto LINE if /bala/; s/([^:]+)([^:]+)/$2$1/' file.txt f +ile.txt [download]
-- John.
In reply to Re: perl -pl with next? by jmcnamara in thread perl -pl with next? by Anonymous Monk