$x =~ s/([^$last]?)($last*)$/ $next{$1} . $first x length $2 /e;