sub get_search_ready { my ($search_line) = @_; my ($search_line2) = @premium_resultline; $reline = $search_line; $reline = $search_line2; $reline =~ s/[+\[\]()*^.\$?\\~<>;]//g; return ($reline); }