use Benchmark;
timethese (10000000, {
     'substr' => sub { my $x = '123456789B31S';
                       $string = substr($string,4,(length($string)-6)); },
     'regexp' => sub { my $x = '123456789B31S';
                       $string =~ s/^.{4}(.+).{2}$/$1/; }});