You might consider adding a test to check if the expected alteration to the original regex was successful. The  \Q(?:\b\E and  \Q\b)\E parts of the substitution are rather fragile IMO and may break if the maintainer(s) of Regexp::Common ever change his/her/their notion of what a proper profane regex should look like.

c:\@Work\Perl\monks>perl -wMstrict -le
"use Regexp::Common;
 ;;
 (my $reg = $RE{profanity}) =~ s{\A \Q(?:\b\E (.*) \Q\b)\E \z}{$1}xms
   or die 'profanity anchor trim failed';
 ;;
 print qq{bad: '$1'} if 'Matsushita' =~ m{ ($reg) }xms;
"
bad: 'shit'
[download]