sub makeSafe{
  my $value = $_[0];
  if($value =~ m/[;><\*`\|]/){
    $value =~ s/[;><\*`\|]//g;
  }
  return $value;
}