You want to match

name, dash, name, dash, name
[download]

or

( name, dash ) x 2, name
[download]

so

my ($substr) = $s =~ /^((?:[^_]*_){2}[^_]*)/
    or die("No match\n");
[download]