while ($requests = <REQUESTS>) {
  chomp $requests; #remove any endline characters
  if ($requests ne "") { #if all endline characters are wiped, check for nothingness
    print MAIL "$requests\n";
  }
}