yes, Text::Balanced is supposed to be the right choice... but it seemed to me that i needed to do to much things before getting the results :( ... it would had be the best if it would have been as simple as something like:

#!/usr/bin/perl -Twl
use strict;
use Text::Balanced qw(extract_quotelike);
{
    local undef $/;
    my $string = <DATA>;
    my ($extracted, $remainder) = extract_quotelike($string);
    print $extracted;
}
[download]

.. but it doesn't work like this, looks like, as you said, more configuration is to be done. :(

--
AltBlue.