Глава 1: Введение.
1.5. Прогулка по стране Perl
1.5.2. Добавляем возможность выбора

Допустим теперь, что у нас припасено какое-то особое приветствие для пользователя по имени Рэндал, а для остальных — обычное. Для этого нам нужно сравнить имя, которое было введено, со строкой Randal, и, если оно совпадает, сделать что-то особое. Давайте добавим в программу С-подобную ветвь if-then-else и операцию сравнения:

#!/usr/bin/perl
 print "What is your name? ";
 $name = <STDIN>;
 chomp ($name);

 if ($name eq "Randal") {
   print "Hello, Randal! How good of you to be here!\n";
 } else { 
   print "Hello, $name! \n"; # обычное приветствие

В операции eq сравниваются две строки. Если они равны (т.е. совпадают все символы и длина строк одинакова), результатом будет "истина". (В С и C++ подобной операции нет*).

Оператор if выбирает, какой блок операторов (заключенных между парными фигурными скобками) выполняется; если выражение дает в результате значение "истина", выполняется первый блок, в противном случае выполняется второй блок.