文字が置換されてしまうので、書き方を変えて set cc to (ASCII character 128) & (ASCII character 128) do shell script "tr " & cc & "r " & cc & "n < '/Library/Application Support/Adobe/TypeSpt/AdobeFnt05.lst' | perl -ne 'print if s/^(FontName:|WritingScript:)//;'" でOK、と。 ほんとうにこのファイルなのかまだ、疑問はのこってしまうけど。。。^^