sub mysubstr {
    my ($string, $begin, $end, $replace) = @_;
    my $offset = $begin;
    my $length = $end - $begin + 1;
    return substr $string, $offset, $length, $replace;
}
1