while ($page=~ /
(.*?)<\/blockquote>/g) { print "captured text: $1\n"; }