my $str = '1029576843';
my @f = split //, $str;
print $f[ 4 ];  # 5