my @headers = split ' ', do{ my $raw = <INPUT>; $raw =~ tr[",][ ]; $raw }; #"