my $filename = grep defined, /(?:^|,) (?: "([^"]+)" | ([^,]+))/xg;