Make it Smooth solutions

Make it Smooth was solved using Perl by 2 contestants. Solution sizes: average 2335 bytes (shortest: 2007; longest: 2663).