Select Code to Download

!/usr/bin/perl
use warnings;
...
s/\{$nobrackets\}/leftbracket $1 rightbracket/g;

print "$_\n";

a leftbracket  b  rightbracket c ( d ) e

use warnings;
use strict;
...
    $d =~ s/\{$nobrackets\}/leftbracket $1 rightbracket/g;
    return $d;
}

a leftbracket  b  rightbracket c ( d ) e
a leftbracket  b  rightbracket c ( d ) e {leftbracket F rightbracket} 
+((G))