open(T,"test.html") || die ("Unable to open file. $!\n");
while(<T>) {
# preprocessing with s/.../ as above
    if (/^;Town/) {
        $town = <T>;
        chomp $town;
        $town =~ s/;//g;
        print "Found a town: $town\n";
    }
}