If you know how to replace the first underscore with a comma, just add reverse:

$file = reverse $file;
$file =~ s/_/,/;
$file = reverse $file;
[download]

To get back what's after the inserted comma, the following should work:

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