use bigint;$a.=2**$_.$/for 0..$$;print$&x$a=~/^$_.*
/mfor 1..100