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'