in reply to perl grep clone
Nevermind... it took a sec to figure out I had to pass an arg in ;)
It doesn't look like your code does anything different than:
# 5 0 4 print while<>; [download]