in reply to Join with more than one EXPR
my $d = $a . '-' . $b . '_' . $c; [download]
If you don't play to join's strengths, don't use it.