#!perl -lp
s/1?./$&-print/ewhile$_