#!perl -p
s/\b0+\B//g;s;\b[0:]+0;: