#!perl -p
s/ //g;s;0*;