#!/usr/bin/perl
use CGI;
$q = new CGI;

$path = '/';

$redirect = $ENV{REQUEST_URI};
$redirect =~ s/$path//;

($code,$query) = split (/\//,$redirect);

$code =~ s/(.)(.)/$1/g;
$url = 'http://'."$code/$query";

print $q->redirect("$url");