Help for this page

Select Code to Download


  1. or download this
    use strict; 
use warnings;
  2. or download this
      $search_q = $ENV{'QUERY_STRING'};
  $search_q =~ s/\&pg=\d+//;
  3. or download this
      $search_q = $ENV{'QUERY_STRING'};
  $search_q =~ s/\&pg=\d+//;
  $search_q =~ s/&(?!amp;)/&/g;