my $i = "";
if (defined($i)) {
print "defined";
} else {
print "not defined";
}

 defined

 not defined

 зависит от реализации Perl

$a = "0";
if ($a) {
print "A";
} else {
print "B";
}

 A

 B

 зависит от реализации Perl

 при выполнении интерпретатор выдаст ошибку, т.к. нельзя однозначно интерпретировать выражение в условии

$a = "000";
if ($a) {
print "A";
} else {
print "B";
}

 A

 B

 зависит от реализации Perl

 при выполнении интерпретатор выдаст ошибку, т.к. нельзя однозначно интерпретировать выражение в условии

@a = (10, 1, 2);
print join(" ", sort(@a));

 10 1 2

 1012

 1 2 10

 1210

 1 10 2

 1102

 1

$title = "Happy new 2004 year";
$title =~ m/^.*(\d+) year$/;

 Happy new

 appy new 2004

 Happy new 2004

 2

 4

 2004

$title = "Lambada 2004";
$title =~ m/([0-4]*)/;

 4

 004

 2

 2004

 пустой строке

 Lambada (после последнего символа “a” - пробел)