my @list = split(' ', <<'HERE');
some whitespace
separated words
and possibly $a
varaiable or $2
HERE

##</code><code>##

print <<(HEREDOC, qx);
date
df
HEREDOC

##</code><code>##

Use of bare << to mean <<"" is deprecated at everywhere.pl line 23.