my ($left, $extract, $right) = split_string $string, $offset, $length; my $remainder = $left . $right;