#!/usr/bin/perl -w
print "Hello, world!\n";
while ( <> ){
$n++ if eof;
$n-- if /<title>([^<]+)/i;
}
print "$n\n"