while ( my $input_line = <INFILE> ) {
    chomp $input_line;
    my $output_line = join '', reverse split /(\s*=\s*)/, $input_line,
+ 2;
    print OUTFILE "$output_line\n";
}
[download]