pattern = the number is #8  # number

##</code><code>##

$line =~ s!#.*$!!; # strip off comments
my( $key, $value ) = split /=/, $line;