my @comma_extensions = map { /,(\w+)$/ ? $1 : () } @files;