#!/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.,]/;