use strict;
use Regexp::Common;

(my $reg = $RE{profanity}) =~ s{\A \Q(?:\b\E (.*) \Q\b)\E \z}{$1}xms;

while ( my $word = <DATA> ) {
  chomp $word;
  if ( $word =~ m/$reg/ ) {
    print "Profanity detected: \"$word\"\n";
  } else {
    print "$word\n";
  }
}


__DATA__
aaaabbbbcccc
aaaashitcccc
aaaa1234cccc
ddddeeeeffff