http://example.com/news/20021031/09/index.html

##</code><code>##

http://example.com/perl/news.pl?date=20021031&id=09&page=index.html

##</code><code>##

package MyApache::RewriteURI;
  
  use strict;
  use warnings;
  
  use Apache::RequestRec ();
  
  use Apache::Const -compile => qw(DECLINED);
  
  sub handler {
      my $r = shift;
  
      my($date, $id, $page) = $r->uri =~ m|^/news/(\d+)/(\d+)/(.*)|;
      $r->uri("/perl/news.pl");
      $r->args("date=$date&id=$id&page=$page");
  
      return Apache::DECLINED;
  }
  1;

##</code><code>##

PerlTransHandler +MyApache::RewriteURI