$file =~ s/_([^_]*)/,$1/;
my $rest = $1;