Select Code to Download

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

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

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

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