#!/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;