Select Code to Download

LINE: while (defined($_ = <ARGV>)) {
    chomp $_;

our(@F) = split(' ', $_, 0);
    next unless @F;