!/usr/bin/perl
use warnings;
use strict;

$_ = "a { b } c ( d ) e";

my $nobrackets = qr/([^{}]+)/;
s/\{$nobrackets\}/leftbracket $1 rightbracket/g;

print "$_\n";