#!perl -p
s/./!$&^$'=~0/eg