You want to use =~ instead of = when doing regexp substitions on a variable. You're basically doing this:

$line = ($_ =~ s/\s*\#.*//);
[download]

Since $_ is undefined here, you get that warning.