And to make that even easier, use \Q in your regex to invoke quotemeta inline. No need to alter $delimiter or use an intermediary variable.