Select Code to Download

if ( $array =~ /^\s*$/ ) { # true if line is empty or whitespace only
    ....
}

(echo SYSDATAMSG; uname -a; uptime; date) | mail -s uptime time@taproo
+t.bz

open(MAIL, "$file") || die "cant open spool\n";
my @mail_lines = <MAIL>;
...
        print $uname_data, $uptime_data, $time_stamp;
    }
}