# convert trigraphs automagically
my $t;
s#\?\?([=(/)'<!>-])#($t=$1)&&($t=~tr/=(\/)'<!>-/\#[\\]^{|}~/)&&($t)#ge;