Неправильная проверка со строками

Question

Я новичок в Perl и не могу понять, почему эта проверка выдает false:

 // $answer would be a Global Variable
 my $answer;

 // the rest is in a sub scope
 print "Do you want to proceed? (Y/N)";
 $answer = uc <STDIN>;

 if($answer eq "Y"){
     print "success";
 } else {
     print "why";
 }

Answer 1

Посмотрите, каково значение $answer на самом деле:

print "---$answer---";

Это выводит

---Y
---

Так что оно не равно "Y", оно равно"Y\n".

Используйте chomp в строке.