my $foo = 'bar';

print <<END;
1. \$foo is $foo
END

print <<"END";
2. \$foo is $foo
END

print <<'END';
3. \$foo is $foo
END

print <<`END`;
echo 4. \$foo is $foo
END