Select Code to Download

while ( my $html_file = $rule->match ) {
   # Change file in-place.
...
      print;
   }
}

while ( my $html_file = $rule->match ) {
   rename($html_file, "$html_file.bak")    or die;
...
      print $fh_in $_;
   }
}