#!/usr/bin/perl -w
use strict;
open (FILE1, "input.txt");
open (FILE2, ">output.txt");
while (<FILE1>)
{
        /^(.+?)\s{1,9}(.+?)\s{1,9}(.+?)$/;
        print FILE2 "$1,$2,$3\n";
}
close FILE2;
close FILE1;