my $result = (split "", "ab")[(length(qq(ab))-1)]; print $result;