if ($temp2 =~ m/[^a-zA-Z]/)
{
 die "Wrong input";
}
else
{
 $naam = $1;
}