read($data, my $bom='', 1);  # Discard BOM.