# Read("eingabe: ",[regex,regex,rege...],"wrong!")
#
# @args = Read(...);
# $args[-1] = nummer der regex die stimmt(von 0)
# $args[0] = Eingabe des Benutzers
# $args[1] = $1, $args[2] = $2, ...

sub Read {
   my $text = shift;
   my $regex = shift;
   my $wrong = shift;
   my($a,$i,@a);

   while (1) {
     print $text;
     chomp($a = <STDIN>);

     $i = 0;
     foreach my$aa (@{$regex}) {
       if ($a =~ /$aa/) {
         push(@a,$a);

         my @aa = $a =~ m/$aa/;
         push(@a,@aa,$i);

         return @a;
       }
       $i++;
     }

     print "$wrong\n" if $wrong;
   }
}