in reply to What's the answer to this puzzle? Most unique/golfed solution? (fun)
55 characters:
perl -E'$_=1;say,s/(.)\1*/$&=~y...c.$1/ge while$i++<19' [download]