#!/usr/bin/perl -nl
use re 'eval';local$";
/@{[map'(?:(.)|.)',1..length]}(?{print+join'',map$$_,1..length})(?!)/;