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