ばけちゃった set fileList to do shell script "perl -e \"print \\\"'\\\", join(\\\"' '\\\", sort(split (/\\t/, '" & fileList & "'))), \\\"'\\\";\"" です。