sub findandreplace {
  my ($string, $find, $replace)=@_;
  eval { $string =~ s/$find/$replace/; }
  die "$@" if $@;
  $string;
}