Select Code to Download

open(local *INFILE, '<', $filename)
   or die("Unable to open the input file: $!\n");
...
}

print @filtered;

open(local *INFILE, '<', $filename)
   or die("Unable to open the input file: $!\n");
...
my @filtered = grep { !/[#*]/ } <INFILE>;

print @filtered;