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

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