perl file encoding problem