Make sure it includes the words I find offensive: god

Dear Valued Member of the Perlmonks Community:

For technical reasons, we are unable to comply with your request to filter these words, since it would interfere with certain functionality of our site. Please understand that this is a purely technical consideration and does not constitute an explicit lack of agreement with your perspective on this matter, but we are unable to accommodate you in this way at this time.

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/
[download]