#!/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;
}