$ 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)