Analise o trecho de código em Perl a seguir.#!/usr/bin/perl$...

Analise o trecho de código em Perl a seguir.

#!/usr/bin/perl

$aux = 1;

@array =

("10","2202","366","55");

$var = "";

if ($array[0] ne "10"){

$var .= "1";

} else {

$var .= "0";

$aux++;

}

if ($array[$#array-1] eq "366"){

$var .= "0";

} else {

$var .= "1";

$aux++;

}

if ($array[$aux] =~ /20/){

$var .= "0";

} else {

$var .= "1";

}

print "$var\n";

Após a execução do código, o valor da variável $var impresso na tela será: