in reply to -p option with __DATA__
The stuff in __DATA__ is read with the filehandle DATA, not with the magical default-filehandle of while (<>) {