foreach my $szFile (@szFiles) { print "Converting $szFile\n"; my $hOOFile = OpenOffice::OODoc::File->new($szFile); $szFile =~ s/\.odt$/.html/; # MISSING odt -> html conversion $hOOFile->save($szSearchInFile); }