if ($value =~ m/[.|\n]+/) {
   do_something;
   }