<perl>
$name="wIlLi klAus MeYertt";
$namesmall = lc($name); # alles in Kleinbuchstaben formen
if ($namesmall=~ m/-/){$status="yes";}else{$status="no";} # überprüfen ob Bindestrich vorhanden
if ($status eq "yes")
{
foreach (split("-",$namesmall))
{
$nameok.=ucfirst."-"; }
chop $nameok; # leerzeichen weg
$nameok=~ s/ (.)/" ".uc($1)/egi;
out "$nameok";
}
if ($status eq "no")
{
foreach (split(" ",$namesmall))
{
$nameok.=ucfirst." "; }
chop $nameok; # leerzeichen weg
$nameok=~ s/ (.)/" ".uc($1)/egi;
out "$nameok";
}
</perl>

$emsg.="Name enthält Sonderzeichen" if ($_put{name}=~ /[^\w -]/);