ANTICHAT — форум по информационной безопасности, OSINT и технологиям

КАК сравнить на равенство (eq) входные данные <STDIN>(текст) со скалярной величиной, лично у меня не выходит.

Если писать так, то результат ожидаемый.

#!usr/bin/perl -w
$a="blabla";
$b="blabla";

if($a eq $b){
print "Ok\n";
sleep(5);
}
else{
print "Oops\n";
sleep(5);
}

А если попробовать с вводом с клавиатуры то увы!!! (При вводе с команд. строки blabla пишет Oops).

#!usr/bin/perl -w

$a=<STDIN>;
$b="blabla";

if($a eq $b){
print "Ok\n";
sleep(5);
}
else{
print "Oops\n";
sleep(5);
}