DB<3> $user = "foo";

  DB<10> print join " ", grep !/^$user,/, qw /foo foobar bar barfoo fobar foobaz /;
foo foobar bar barfoo fobar foobaz
  DB<11> print join " ", grep /^$user,/, qw /foo foobar bar barfoo fobar foobaz /;

  DB<12>