#23456789_123456789_123456789_123456789_123456789_123456789
$"='';@s=/./gs;@s=map"@s[($_<$s?0:$_-$s)..$_-1]",1..$s+$#s;