use constant { wdCharacter => 1, wdOutlineView => 2, wdPrintView => 3, }; [download]
In reply to Re^3: perl script for word by poj in thread perl script for word by Hary