sub split_string ($$$) {
    my ($string, $offset, $length) = @_;

    $string =~ /^(.{$offset})(.{$length})(.*)$/;

    return (($1 // ''), ($2 // ''), ($3 // ''));
}