#!perl -pl
y/01/12/;$_-=<>;y/012/_ -/