Why can't use transform your code into something like this?

#!/usr/bin/perl

use strict;

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