#!perl -p s/.*\K0|1/$&^1/eg