sub sanitize_it {
  $_[0] =~ s/[^\w.,\-={}()\[\]!@#\$%^&'`~]/$_[1]/g;
  return $_[0];
}