print
   map { s{0{2,}}{0}; $_ }
   <DATA>;

##</code><code>##

s/0{2,}/0/, print while <DATA>;