Select Code to Download

   my $data = qq(SELECT word FROM swears);
   my $sth = $dbh->prepare($data);
...
   {
       push @swearwords, $ref->[0];
   }

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