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