while ($sth->fetch)
   {
      $text =~ s/$_/****/ foreach @swearwords;