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