$ perl -nwe 'BEGIN {print "$$\n"} do "file_with_DATA.pl"'
$ head -n 10 file_with_DATA.pl 
() = <DATA>;
#close(DATA);
1;
__DATA__
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
[... Many more lines of "AAAA"s ...]