#!/usr/bin/perl

use CGI;
use URI::URL;

$q = new CGI;

$url = URI::URL->new($q->url());
$host = $url->scheme()."://".$url->host();
$path = $url->path();
$path =~ s!/Urlaub(%20|\s)200([12])/?!/Urlaub/Urlaub%20200$2/!gs;
print $q->redirect("$host$path");