in reply to s/// not replacing data

Regexp::Common has a feature for filtering out swear words.
meh.

In Section Seekers of Perl Wisdom