sub insert_end_relative {
    my ($string, $pos, $insert) = @_;
    substr ($string, $pos || length $string) = $insert
}