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";}
}