#!/usr/bin/perl

use warnings;
use strict;

my $url = 'http://www.domain.de/UndDaStehtVonMirAusNochIrgendwas';

my ($land_kurz) = $url =~ m/\.([a-z]{2,})\//;

# Danach braeuchtest du eine Tabelle mit der du
# das Land setzen kannst.

my $land = "Deutschland" if $land_kurz eq "de";

print $land;