"nosehair" while s/(.{1,3})\*/*,$1/;