sub i{($_,$t)=@_;chop$t while!s/\Q$t\E$/$_[1]/;$_}