$page =~ s/(\n|\r)/<!--xxx-->/g;
$page =~ s/.*<!--start\stag-->(.*)<!--end\stag-->.*/$1/;
$page =~ s/<!--xxx-->/\n/g;