#!perl -p s/^0 0?| //g