my @headers = split ' ', do{ my $raw = shift @lines; $raw =~ tr[",][ ]; $raw }; #"