$string = decode("utf8", $input{'Strasse'})

$string = decode("utf8", $input{'Strasse'});

if($string !~ /[öüÖÜßA-Za-z0-9\+\.\-\ ]/){
print DEBUG "MÖÖÖÖÖÖÖP111!!!!!!!!!!!!!!\n";
}

$string = decode("utf8", $input{'Strasse'});
@allchars = split //, $string;
foreach $char (@allchars){
if($char !~ /[öüÖÜßA-Za-z0-9\+\.\-\ ]/){
print DEBUG "MÖÖÖÖÖÖÖP222!!!!!!!!!!!!!!\n";
}

$string = decode("utf8", $input{'Strasse'});

if ($string !~ /^[öüÖÜßA-Za-z0-9\+\.\-\ ]+$/) {
    print DEBUG "MÖÖÖÖÖÖÖP111!!!!!!!!!!!!!!\n";
}

#!/usr/bin/perl

use strict;
use warnings;
use CGI qw(:standard);
use Encode;

print header('text/plain');

my $var = param('strasse');
$var = decode_utf8($var);
print $var,"\n";

print "MÖÖP!!" if $var =~ /[^ÖÜöüßA-Za-z0-9.,]/;

if($string !~ /^[öüÖÜßA-Za-z0-9\+\.\-\ ]+$/) {
   print DEBUG "MÖÖÖÖÖÖÖP111!!!!!!!!!!!!!!\n";
}