(* This script will convert high bit WinLatin1 (code page 1252) characters (128-255) to their unicode character entity equivalents. Based on the following document: http://www.microsoft.com/globaldev/reference/sbcs/1252.mspx Dropping files on this will edit them in place. If any file does not seem to be a text file, it is skipped. If all files dropped on this do not look like text files, the user is alerted and the perl is not run. Just running the script will edit what's on the clipboard. --CBT: 2007-05-09 *) on open these_items set paths to "" as string repeat with i from 1 to the count of these_items set this_item to item i of these_items set posix_path to POSIX path of this_item set paths to paths & posix_path & (ASCII character 10) end repeat set args to do shell script "{ cat <