Select Code to Download

    ...split /[^-\w']+/, $search_keys, 2;

 my @keepers;
 for my $q ( split /[^-\w']+/, $search_keys ) {
     push @keepers, $q;
     last if @keepers == 2;
 }