in reply to Re^2: perl grep clone
in thread perl grep clone

I cheat a little and assume only one argument on the command line:
print grep/@ARGV/,<STDIN>;