1 while s/^(\d*)0\n\1.$/$1/mg || s/^(\d*)\n\1.*$/$1/mg; 

##</code><code>##

10010
100100
100101

##</code><code>##

10010
10010