in reply to A simple question that can't be asked

This should work as well:

#!/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__

[download]

Regards, Karl

«The Crux of the Biscuit is the Apostrophe»

perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help

In Section Seekers of Perl Wisdom