Select Code to Download

@vals = (".","..",".\n","..\n","foo","foo\n","bar","bar\n");

foreach (grep !/^[.]{1,2}$/,@vals) {
  print "$_\n";
}

foo
foo
...
bar
bar