in reply to Zip/compress files and directories

have you tried ... 
`find . -name "AAA*" -print | zip yourzipfile.zip -\@`;

[download]

In Section Seekers of Perl Wisdom