Select Code to Download

Magnunm,Cobray,Ingram,Samsy,Rayver

open my $infile, "<", "name_list.txt" or die "cannot open input: $!";
my @infile1= <$infile>;
...
    if ($name =~ /Cobray/){
    print "$name";}
}

Magnunm
Cobray
Ingram
Samsy
Rayver