use strict;
while (<DATA>) {};


# This warning appends "<DATA> line 3"
warn "Something not related to the DATA";

open DATA, '<:encoding(UTF16)', 'simple.pdf' or die $!;

# This gives error UTF-16:Unrecognised BOM 2550 ...,<DATA> line 3.
<DATA>;
__DATA__
xx
xx
xx