note clemburg <p> You mean like this? <p> <code> > perl -ne 'print qq(@{[ grep /spied\.co\.nz/, split /,\s+/ ]})' </code> <p> Christian Lemburg<br> Brainbench MVP for Perl<br> http://www.brainbench.com 130637 130637