On Mar 4, 2014 9:46 AM, "Shawn H Corey" <shawnhco...@gmail.com> wrote: > > On Tue, 4 Mar 2014 09:24:53 -0500 > shawn wilson <ag4ve...@gmail.com> wrote: > > > my $src = (map {s/.*(ARIN|APNIC).*(?:\n)?/$1/r} @ret)[0]; > > You do realize this is process the whole array and then throwing out > all but the first? And it has the side effect of modifying the array? >
Returning the first element is why I used grep (and why map won't work). I'm trying to get around that side effect (maybe I should've just asked that).