#!/usr/bin/env perl

use strict;
use warnings;
use feature qw(say);

my ( $v1, $v2 ) = qw( A B );

say  qq(my answer is "_$v1\_$v2\_");


__END__