ShiftJIS extractor  script write in perl