Hello, I am trying to make a Perl script which will open a two text files: A.txt for news articles, B.txt for curse words.

B.txt will have bunch of cursing words separated by line(\n)

The script will read A.txt and B.txt. Searching A.txt for any of B.txt. If there is any words from B.txt, it will replace the word with XXXXX.

So far, I have:

use strict;
use warnings;
local $/;
open FH,"<article.txt";
my $string = <FH>;

$string =~ s/bitch/XXXXX/g;
$string =~ s/shit/XXXXX/g;
$string =~ s/slut/XXXXX/g;
$string =~ s/fuck/XXXXX/g;
...

open FILE, ">filtered.txt" or die $!;
print FILE $string;
close FILE;

#EOF

Can someone enlighten me how can I have those curse words in text file separately, rather than listing all those words in regular expression in the script? (words are separated by line (\n))


Thank you so much

---

---

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

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:
	&		&
	<		&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.