Another TIMTOWTDI:

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

print $result;
[download]

Please note: with subtraction ;-)

Update:

Two more...

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

print qq($result\n);

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

print qq($result\n);
[download]

Perhaps this is the reason why some folks hate perl?

Regards, Karl

P.S.:

• length
• splice
• pop