my $v1 = 'A';
 my $v2 = 'B';
 say qq{ my answer is "_${v1}_${v2}_" };