perl -E 'say "xxx" =~ s/^.(?{"a"})|.$(?{"c"})|.(?{"b"})/$^R/gr' #### say "xxx" =~ s/ ^. (?{ "a" }) | .$ (?{ "c" }) | . (?{ "b" }) /$^R/grx'