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

print $result;


##</code><code>##

$result = pop @{ [ split( "", "ab" ) ] };

print qq($result\n);

$result = splice( @{ [ split( "", "ab" ) ] }, -1 );

print qq($result\n);