is there a way to write this without using map AND grep AND without making it longer than it is? @must = map { m/(.*)\/\*/; $1 } grep m/\/\*/, @recomp;
where @recomp = qw( stuff/stuff.c crap/* morestuff/* stuffy/stuff_stuff.c stuffy/suffering.c ); # and more of the similar Delivery Queue <http://www/reldist-bin/build/assign/listassign.cgi?reverse=on> Nikola Janceski Summit Systems, Inc. 212-896-3400 Love all. Trust a few. Do wrong to none. -- William Shakespeare ---------------------------------------------------------------------------- -------------------- The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]