My program
#!/usr/bin/perl -w
use strict;
my $source=shift @ARGV;
open(FH,'<',$source) or die "I can't open the file $!\n";
while(<FH>)
               {
                      s/^(\d*).(\d*)/X.X/g;
                }
close FH;