Dochere in perl

use strict;
use warnings;

#String Manipulation, Both Method 1 and 2 are same...
Method 1:

my $test="100 mm";
my $var = <<EOF;
This is the first line of text
this is second line
this is third line
this is fourth line
$test
EOF

print $var;

Method 2:


my $var = <<"EOF";
This is the first line of text
this is second line
this is third line
this is fourth line
EOF

print $var;