my @captures = $line =~ m/(\d{4}-\d\d-\d\d),(\w*),(\w*),(\w*,|\w*\(.*?\),?|\w*-\w*,|\w*-\w*\(.*?\),?)*/; #{8} replaces