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