#!/usr/bin/perl
use strict;
use warnings;
use 5.018;

# read_to_dblquoted_str.pl

my $str=qq(");

my $txt = "abcdef \$3.05 xyz";   # to minimize, assigning this way, sted openning a file and reading it.

$str .= $txt . qq(");

say "\$txt: " . $txt;
say "\$str: " . $str;

=head

C:\> read_to_dblquoted_str.pl
$txt: abcdef $3.05 xyz
$str: "abcdef $3.05 xyz"

=cut