$temp2 !~ m/[^a-zA-Z]/

##</code><code>##

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