my $mystring = "test";
my $temp2 = $mystring;

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


my $uur = 24;
my $temp1 = $uur;

if($temp1 < 25 && $temp1 =~ /\d\d/) 
{ 
 $uur = $1; 
} 
else 
{
 die "Geen correcte tijdsduur. Niet meer dan 24 uren   ingeven!!"; 
}
 print "$uur";