my $ParamZahl = @ARGV;
if ($ParamZahl == 2 && @ARGV[0] =~ /^\D{3}$/ && @ARGV[1] =~ /^\d{4}$/ ) {
  $Biblio=@ARGV[0];
  $Jahr=@ARGV[1]; 
  print "$Biblio im Jahr $Jahr \n";
  }
  else {
    print "Die Parameter sind falsch eingegeben worden.\n";
  	print "Bitte die Bibliothek angeben (BBB): ";
  	my $Biblio = <STDIN>;
  	while ($Biblio !~ /^\D{3}$/ ){
  	  print "Bitte die Bibliothek mit drei Buchstaben eingeben (BBB) : ";
  	  $Biblio = <STDIN>;
  }
}