Select Code to Download

use strict;
use IO::File;
...
$out->close or die "can't close output";

rename('tmp.mif','test.mif') or die "can't rename";

use strict;
use Tie::File;
...
tie @file, 'Tie::File', 'test.mif' or die "cannot tie file";

s/(FchangeBar )Yes/$1No/g for @file;