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