$LEFT_DELIMITER = '{\[';
$RIGHT_DELIMITER = '}\]';

$tempstr = 'This is a string containing [Am]brackets.';
$chord = 'Am';

$tempstr =~ s/[$LEFT_DELIMITER]$chord[$RIGHT_DELIMITER]//;
print $tempstr;