in reply to Split question...
...split /[^-\w']+/, $search_keys, 2;
So you only search for numbers and text (more or less). But that will slurp up extra stuff on the end, possibly corrupting the second element returned.
Maybe something like this?
my @keepers; for my $q ( split /[^-\w']+/, $search_keys ) { push @keepers, $q; last if @keepers == 2; }
The one thing you can count on with UI is that the U will not I as you expect him/her to.
|
|---|