Select Code to Download

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

print $result;

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

...

print qq($result\n);