I wasn't even trying to obfuscate.
It just seems senseless to break it out into multiple lines when it just works and minimizes vertical waste
# convert trigraphs automagically
my $t;
s#\?\?([=(/)'<!>-])#($t=$1)&&($t=~tr/=(\/)'<!>-/\#[\\]^{|}~/)&&($t)#ge
+;