...
    if ($name =~ /Cobray/) {
        print "Cobray\n";
    }
...