perl -i.bak -M'open IO => ":encoding(UTF-16LE)"' -pe 'BEGIN{undef $/} s/(?<=\x{feff})/Filename: $ARGV\n/'  `find . -name '*.TXT'`