my $pageht = do {local $/;<HTMLP>};