$encrypted = "AB/uOsC7P93EI";

$salt = substr($encrypted, 0, 2);

print "Guess the word: ";

while(<>) {

    chomp;
    if ($encrypted eq (crypt $_, $salt)) {
        print "You got it!";
        exit;
    } else {
        print "Nope.\n";
        print "Guess the word: ";
    }
}

   