なんとなくできた感じ do shell script "tr \\r \\n < '/Library/Application Support/Adobe/TypeSpt/AdobeFnt05.lst' | perl -ne 'print if s/^(FontName:|WritingScript:)//;'" ascii characterの128を使え、と。