Sure you can, that is why each code tags section gets its own download link

my $data = <<'<<DATA';
Dont you put me after  __DATA__ you human
<<DATA

open my($fh), '<', \$data;
while(<$fh>){
  print length, "\n";
}
__END__
[download]

42
[download]

besides, when human copy/paste, human edit :)