use strict; 
use warnings;

##</code><code>##

  $search_q = $ENV{'QUERY_STRING'};
  $search_q =~ s/\&amp;pg=\d+//;

##</code><code>##

  $search_q = $ENV{'QUERY_STRING'};
  $search_q =~ s/\&amp;pg=\d+//;
  $search_q =~ s/&(?!amp;)/&amp;/g;