in reply to Regex from a file
You might suspect that such a tool has already been created; certainly you're not the first Perl user to have the need.
Assuming you're actually trying to solve a problem rather than just have a little fun in a public forum, you should look at Regexp::Common::profanity, Regexp::Common::profanity_us, or Regexp::Profanity::US. Those solutions are further along the development path than yours.
Dave
In Section
Seekers of Perl Wisdom