Select Code to Download

pattern = the number is #8  # number

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