while (defined (my $Line = <TESTFILE>)) {
    next if ($Line =~ m/^#/);
    next if $Line !~ /(option(?:1|2|3|4|6|7))\s*=\s*(.*)/;
    print "$1 = <$2>\n";
}
close (TESTFILE);