while ($requests = <REQUESTS>) {
      if ($requests ne "\n") {
          print MAIL "$requests";
      }
      }

##</code><code>##

print MAIL grep !/^$/,<REQUESTS>;

##</code><code>##

while ($requests = <REQUESTS>) {
    print MAIL $requests if $requests ne "\n";
}

##</code><code>##

while ($requests = <REQUESTS>) {
    print MAIL $requests unless $requests=~/^$/;
}