String Perl

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