my $searchstring = $obj->param('words');

  eval { no warnings; "" =~ /$searchstring/};

  if ($@) { ... }