Magnunm,Cobray,Ingram,Samsy,Rayver

##</code><code>##

open my $infile, "<", "name_list.txt" or die "cannot open input: $!";
my @infile1= <$infile>;
close $infile;

foreach my $name (@infile1) {
    chomp $name;
    if ($name =~ /Cobray/){
    print "$name";}
}

##</code><code>##

Magnunm
Cobray
Ingram
Samsy
Rayver