$string = '123456789B31S';
$string =~ s/^.{4}(.+).{2}$/$1/;
print "$string\n";