use File::Slurp;

sub fix_file {
  my $html = read_file($_[0]);
  my $replacement = ...read in replacement string...
  if ($html = s{<div align="center">nothing</div>}
               {<div align="center">$replacement</div>})
               # use g modifier?
  {
    ...write file...
  }
}