if ($key =~ m/\Q$key2\E/) {
        print " [just another perl hacker] \n";
    }