my $first = (split//,$string)[0];

##</code><code>##

print +(split//,$string)[4];