#! perl -w
my $s = qq(the quick brown fox);
print substr($s, 4, 6) = '', $/;

__END__
#output
C:\test>191356
brown

C:\test>