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