sub insert_end_relative{
	my ($string, $pos, $insert) = @_;

# ADDED the 0 subsequent to Abigail's post below.		return $p 
	? substr($string, -$pos, 0) = $insert 
		: $string .= $insert;
}