c:\@Work\Perl\monks>perl -wMstrict -le
"use strict; use warnings; use 5.010;
 use Regexp::Common 'RE_balanced';
 my $string = 'The use of parentheses (indicates that the ' .
    '(writer [considered] the {information}) less ' .
    '<importantalmost> an afterthought).';
 my $match = RE_balanced( -parens => '(){}[]<>', -keep );
 $string =~ s/${match}.*//;
 $1 and say \"^>$_^<\" for $string, $1;
"
>The use of parentheses <
>(indicates that the (writer [considered] the {information}) less <importantalmost> an afterthought)<