#!perl -p
y/
/0/c