Help for this page
for (@output5b) { s/\b0\b/1/ };
for (@output5b) { s/^0$/1/ }
for (@output5b) { $_ = 1 if $_ == 0 }