$string = "hello";
$hossz = length $string;

if ( $hossz % 2 eq 1 ) {
print "paratlan\n";
}
elsif ( $hossz % 2 eq 0 ) {
print "paros\n";
}

Ha még aktuális egyáltalán