Trying to make a swearword filter. The swears table has list of swear words which won't be posted in here for logical reasons. I'm trying to get each word or phrase into an array for later processing.

   my $data = qq(SELECT word FROM swears);
   my $sth = $dbh->prepare($data);
   $sth->execute() or die $dbh->errstr;

   while(my $ref = $sth->fetchrow_arrayref) 
   {
       push @swearwords, $ref->[0];
   }

[download]
Then I try to pull text from the database and apply the swear word filter but it's not filtering anything. I am pulling more data from the database so here's the fetch-> of that. 
   while ($sth->fetch)
   {
      $text =~ s/$_/****/ foreach @swearwords;

[download]
no bad word in $text is being replaced.

I did do a test print of the @swearwords array to see what was in there and the words did get slurped up.

Any ideas why $text isn't being filtered for swearwords?

In reply to array of MySQL data for substitution by coldfingertips

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.