#!/usr/bin/perl -n

# blanks in column 97 changed to zeros for mysql compatibility.

if (substr($_,97,1) eq ' ') { substr($_,96,1,'0'); }

print;