#!/usr/local/bin/perl
$infile = "$ARGV[0]";

open(IN,"$infile") || die "$infile: $!\n";
@lines = <IN>;
close(IN);

for($i=1;$i<$#lines;$i++) {
        &oneline($lines[$i]);
}

exit;



sub oneline {
        my ($aline) = @_;
        print $aline;
        my @chars = split('',$aline);
        for($j=1;$j<$#chars;$j++) {
                if($chars[$j] == 0x0032) { print "$chars[$j]\n"; }
        }
        print $bline;
}