Help for this page

Select Code to Download

Select or download this
s/[$LEFT_DELIMITER]\Q$chord\E[$RIGHT_DELIMITER]//g

Select or download this

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

...

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