$ perl -e 'my ($v1, $v2) = qw{A B}; printf "_%s_%s_\n", $v1, $v2'
_A_B_