Select Code to Download

syntax error at ./scriptfile line 55, near "if !~"

foreach $Line (<TESTFILE>) {
        next if ($Line =~ m/^#/);
...
        }
    }
    close(TESTFILE);