#!/usr/bin/perl

use Text::Balanced qw(extract_delimited extract_bracketed);

$_ = '"Easy as that.", he said.';
($delimited, $remainder) = extract_delimited;

print "Delimited: $delimited; remainder: $remainder\n";

$_ = '(foo (bar) zap) (goo)';
($bracketed, $remainder) = extract_bracketed;

print "Bracketed: $bracketed; remainder: $remainder\n";