#!perl -p s/./0/g