First, please read Writeup Formatting Tips, as wrapping your code in <code> tags would dramatically improve the formatting.

Rather than rolling your own, I'd recommend using Text::CSV and setting the sep_char attribute to a space, a la:

my $csv = Text::CSV->new({sep_char => ' '});