:
  :
$profane{qr/piss (us|you) off/i} = 'lift $1 off';
  :
  :
  :
  :
$text =~ s/($profanity)/eval '"'.$profane{$1}.'"'/ge;
  :
  :