$chunk =~ m%<title>(.+)</title>.*<h1>(.+)</h1>%i;