use bigint;$_=/^$j/m&&++$j?print:$/.$_*2until$j>100