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