You mean like this?

> perl -ne 'print qq(@{[ grep /spied\.co\.nz/, split /,\s+/ ]})'
[download]

Christian Lemburg
Brainbench MVP for Perl
http://www.brainbench.com