$a.="$.for v$_ = 0 to 9 ",$\="$.next ".$\,$..=' ',$b.="v$_,"for 1..10;chop$b;print$a=~s/0/1/r,"$.print $b "
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page