Select Code to Download

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

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

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