my $string = 'mystring123456';
substr($string, 8, 1) = '';
print "$string\n";