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;
}