#!/usr/bin/perl

use Text::DelimMatch;

# Create a new matcher with '"' as the single delimiter.
$mc = new Text::DelimMatch '"';

# Match using the new matcher.
my @m1 = $mc->match('pre ("ma t ch" post)');

# Change the delimiters to pair of delimiters.
$mc->delim('\(', '\)');

# Match using the modified matcher.
my @m2 = $mc->match('pre ("ma t ch" post)');

print "m1 = [", join("|", @m1), "]\n";
print "m2 = [", join("|", @m2), "]\n";