#!/usr/bin/perl use CGI; use Encode qw(from_to);; use strict; my $q = CGI->new; my ( $name, $result); if ( $name = $q -> param ('name')) { my $tmp = $name; from_to ( $tmp,"utf-8","iso-8859-1"); $result = $tmp =~ /^\w[\w\s\-äÄöÖüÜ]+$/ ? 'ok' : 'failed'; } print $q -> header (-charset => 'utf-8'); print < Foo
Name:
Name: $name, parsing: $result EOH