Help for this page

Select Code to Download

Select or download this

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

Select or download this

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