$a.="$.for v$_ = 0 to 9
",$\="$.next
".$\,$..='  ',$b.="v$_,"for 1..10;chop$b;print$a=~s/0/1/r,"$.print $b
"