copy($_,'z:/mail_test') foreach glob 'D:/EudoraPro/*.mbx'; copy($_,'z:/mail_test') foreach glob 'D:/EudoraPro/*.toc';