C:\>perl -MO=Deparse -pl -e "next if /bala/;s/([^:]+)([^:]+)/$2$1/" fi
+le.txt
BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
    next if /bala/;
    s/([^:]+)([^:]+)/$2$1/;
}
continue {
    print $_;
}
-e syntax OK
[download]

See that continue in there (also documented in perlrun)? Know what it does? You should try goto LINE.