print "$data\n";
$data =~ s/^\x{feff}//;  # Strip off BOM
print "$data\n";