$ cat test.pl
#!/usr/bin/perl
my $data;
while() {
$data .= $_;
}
my $stuff = "uninit";
if ( $data =~ /(.*)<\/blockquote>/m ) {
$stuff = $1;
}
print "$stuff\n";
__DATA__
This is a non-fiction collection of Maugham's observations of life in Asia in the early 20th Century. (Summary by BellonaTimes)