#!/home/cuthbe/bin/perl

open(T,"test.html") || die ("Unable to open file. $!\n");
foreach (<T>) {
        s/<[^>]+>//g;
        s/&nbsp//g;
        s/<!//g;
        if($_ =~ /Town/) { printf $$; }
        #printf;
}