#!perl -p y/10 //;$_^=<>;y/01/ _/