Select Code to Download

#!/usr/bin/env perl -l

...
sub replace {
    s/( { | } |{(?!{)|(?<!})})/$replacement_for{$1}/g;
}

Initial string:  'a { b } c ( d ) e'
Replaced string: 'a lbracket b rbracket c ( d ) e'
Initial string:  'a { b } c ( d ) e {{F}} ((G))'
Replaced string: 'a lbracket b rbracket c ( d ) e { lbracket F rbracke
+t } ((G))'