my @fruit = qw( apple banana cherry );

my $bare_heredoc = <<BARE_HEREDOC;
I am kyle@fruit.com, I say.
BARE_HEREDOC
    ;
my $qq_heredoc = <<"QQ_HEREDOC";
I am kyle@fruit.com, I say.
QQ_HEREDOC
    ;
my $q_heredoc = <<'Q_HEREDOC';
I am kyle@fruit.com, I say.
Q_HEREDOC
    ;
print "bare: $bare_heredoc";
print "double quoted: $qq_heredoc";
print "single quoted: $q_heredoc";
__END__
bare: I am kyleapple banana cherry.com, I say.
double quoted: I am kyleapple banana cherry.com, I say.
single quoted: I am kyle@fruit.com, I say.