#!perl -p
s/(:?0000)+/:/;s/\b0+\B//g