my $req = $ENV{REQUEST_URI}; ## Get rules my $query = qq~ SELECT incoming, outgoing, id FROM url_translate ~; my $sth = $dbh->prepare($query); my $rv = $sth->execute; while (my $r = $sth->fetchrow_hashref) { my $in = $r->{incoming}; my $out = $r->{outgoing}; # if( s#$in#$out#i ) { if( $req =~ s#/Products/bt-(.*?).aspx#/s/Products/$1#i ) { $ENV{REQUEST_URI} = $req; return; } } return;