#!perl -p eval's/\d+/[0]/;'x$_