my $string = 'mystring123456'; # or whatever
my $getchar = substr $string, length( $string ) / 2, 1, '';
print "Character is $getchar and string is now $string\n";