sub a{$_=int$_[0]*10**$_[1];s;(.{$_[1]})$;\.$1;;return$_};