$'-print&&s/\B1/0/gfor(<>=~$"x$`.$/)x$`