http://domainname.com/homes/Test boende & Stöd- och rådgivningscenter

##</code><code>##

use Unicode::String qw(utf8 latin1);
use URI::Escape;

print "Content-type: text/html\n\n";

my @values = split('/', $ENV{PATH_INFO});

my $utf8 = Unicode::String->new( $values[1] );
print "utf8:".$utf8."<br />";

my $latin1 = Unicode::String::latin1($utf8);
print "latin1:".$latin1."<br />";

# Works in IE
my $unescapeIE = uri_unescape($latin1);
print "unescapeIE:".$unescapeIE."<br />";

# works in FireFOx
my $unescapeFF = uri_unescape($values[1]);
print "unescapeFF:".$unescapeFF."<br />";

##</code><code>##

utf8:/Test boende & Stöd- och rådgivningscenter
latin1:/Test boende & Stöd- och rådgivningscenter
unescapeIE:/Test boende & Stöd- och rådgivningscenter
unescapeFF:/Test boende & Stöd- och rådgivningscenter

##</code><code>##

utf8:/Test boende & Std- och rdgivningscenter
latin1:/Test boende & Std- och rdgivningscenter
unescapeIE:/Test boende & Std- och rdgivningscenter
unescapeFF:/Test boende & Stöd- och rådgivningscenter

##</code><code>##

my $value = "Test boende & Stöd- och rådgivningscenter";

##</code><code>##

utf8:Test boende & Std- och rdgivningscenter
latin1:Test boende & Std- och rdgivningscenter
unescapeIE:Test boende & Std- och rdgivningscenter
unescapeFF:Test boende & Stöd- och rådgivningscenter