name, dash, name, dash, name

##</code><code>##

( name, dash ) x 2, name

##</code><code>##

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