Select Code to Download

          print $out_fh grep !/^$user,/, <$in_fh>;

  DB<3> $user = "foo";

...
  DB<11> print join " ", grep /^$user,/, qw /foo foobar bar barfoo fob
+ar foobaz /;

  DB<12>