Select Code to Download

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