use bigint;$_=/^$i/m?++$i&&print:$/.$_*2for($_)x$$