I was immediately scared by the ">/etc/services" in there, but now i see what the first line (first real/full line :) ) is .. interesting.
I see (i think) what the rest is supposed to do and how, but couldn't get the $_=(<0>)[-1]; line to work -- always gets a blank string ... Where can i find docs on what <0> does (searched a little and couldn't find the right place)?