#!/usr/bin/perl

# simple process to convert spaces and tabs to commas

while ( <> ) {
    tr/\t /,/;
    print;
}