#!/usr/bin/perl
use feature 'say';
use strict;
use warnings;
#use re 'debug';
my $s = '\left \right \center \right \left \middle';
say
$s =~ s/\\
((left
)|right
)/$2 ? '(' : ')'/egr
;
IyEvdXNyL2Jpbi9wZXJsCnVzZSBmZWF0dXJlICdzYXknOwp1c2Ugc3RyaWN0Owp1c2Ugd2FybmluZ3M7CiN1c2UgcmUgJ2RlYnVnJzsgCgpteSAkcyA9ICdcbGVmdCBccmlnaHQgXGNlbnRlciBccmlnaHQgXGxlZnQgXG1pZGRsZSc7CnNheSAkcyA9fiBzL1xcKChsZWZ0KXxyaWdodCkvJDIgPyAnKCcgOiAnKScvZWdyOw==