$ perl -le 'my ($v1, $v2) = qw{A B}; print join "_", "", $v1, $v2, ""'
_A_B_