my ($quote,$person) = split /--/;
        $quote =~ s/^\s+|\s+$//g if defined $quote;
        $person =~ s/^\s+|\s+$//g if defined $person;