if (&Search_Buff($decide == "1")){
     &Site_Up;
     }
else {
   &Site_Down;
     }

To:

if( &Search_Buff ) {
    &Site_Up;
}
else {
    &Site_Down;
}

##</code><code>##

sub Search_Buff {
    open (gethttpbuff, "gethttpbuff.txt") || die("Could not open file!");
    @array = <gethttpbuff>;
    close(gethttpbuff)

    foreach $line (@array) {
        if ($line =~ /$search/) {
            return 1;
        }
    }

    return 0;
}