sub extract_terms(){
my $input = shift;
chomp $input;