while (<F>) {	
	push ( @raw, utf16($_));
}