sub read_quotes {
        open (QUOTES, "< $basedir$quotefile") || die "No quotes file!";
        while (<QUOTES>) {
            chomp;
            if (!($_ eq $seperator)) {
                $build .= "$_\n";
            } else {
                push(@quotes,$build);
                $build = "-------\n"; #seperate body from sig
            }
        }
        close QUOTES;
}