#!/usr/bin/perl

use strict;

my @record = split( /,\s/ ) while (<>);