#!/usr/bin/perl -w
use strict;
while(<>) {
    my $row = $_;
    $row =~ s/(\d)\s+(\d)/$1;$2/g;
    print $row;
} # while