I'm having a little trouble understanding what you're trying to do. Are you trying to get Perl to change a 0 in a text file to a 1? What is the parameter 'B1' supposed to do, exactly?
--
Love justice; desire mercy.