Select Code to Download

while(defined(my $line = <FILE>)) {
    next if ($line =~ /#.*?,/);
    my @units=split(/,/, $line);
...
        }
    }
}