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