#!perl -p s/0?1*$/$_=$&,y!01!10!,$_/e