Select Code to Download

open my $fh, '<', 'list.txt' or die "Can't open list.txt: $!";

my ( $a, @ss ) = split ...

while ( my $line = <$fh> ){
    chomp $line;
    print "$line\n";
}