$file = reverse $file;
$file =~ s/_/,/;
$file = reverse $file;