#! /usr/bin/perl
#


open IN, "<abc345";
open OU, ">xyz123";
while (<IN>) {
    s/\000//g;
    print OU $_;
}
close IN;
close OU;
exit;