How can I separate Perl variables from text in interpolated strings?

Question

Consider:

print "    $foo", "AAAAAAAA", $foo, "BBBBBBBB";

Let's say I want to use this code with a print <<EOF;:

print <<EOF;
    $fooAAAAAAAA$fooBBBBBBBB";
EOF

That won't work, because Perl thinks I have a variable called $fooAAAAAAAA. How can I easily use print << with such lines when I have a long test to print?

question from:https://stackoverflow.com/questions/506147/how-can-i-separate-perl-variables-from-text-in-interpolated-strings

Answer 1

Use ${foo}:

print <<EOF;
    ${foo}AAAAAAAA${foo}BBBBBBBB";
EOF