system ("perl \"$pathtodocx/docx2txt.pl\" \"${infile}.doc\" \"${outfile}.txt\"");