Ввод из STDIN.

Ввод со стандартного ввода (через Perl-дескриптор файла STDIN)

$a = <STDIN&gt ; #прочитать следующую строку

В списочном контексте - все оставшиеся строки в виде списка, каждый элемент которого одна строка с \n

@a = <STDIN&gt ;

Чтение строк по одной:

while(defined($line_ = <STDIN&gt)) { # обработка строк }

Операция чтения скалярного значения из <STDIN&gt в $_

и использование этого значения в качестве переменной цикла:

while(<STDIN&gt) { # как "while(defined($_ = <STDIN&gt))" chomp; # как "chomp($_)" # другие опрации с $_ }