[Perl] PalindromStrings

Descrizione
Controlla se una stringa è palindroma.

Codice
$str = 'asdDsa';
$rev = join("", reverse split("", $str));
if($str =~ /$rev/i){
print "La stringa '$str' e' palindroma\n";
}
else
{
print "La stringa '$str' non e' palindroma\n";
}
system("pause");