#############################################################
#!/usr/bin/perl -w
use strict;
use warnings;

print("Wie viele Scheiben sollen bei dem Spiel: Türme von Hanoi verwendet werden?\n");

my $Scheibenanzahl = <STDIN>;
chomp $Scheibenanzahl;    
    if (!($Scheibenanzahl =~ /^[0-9]+$/))
    {
    print "Das war keine Zahl\n";
    }

sub move {
  my $anzahl = shift; 
  my $stab_a = shift; 
  my $stab_b = shift; 
  my $stab_c = shift;      
    if ($anzahl > 0) {
    move($anzahl - 1, $stab_a, $stab_c, $stab_b);  
    move($anzahl - 1, $stab_b, $stab_a, $stab_c);
    }
}

move($Scheibenanzahl, 'Turm A', 'Turm B', 'Turm C');
#############################################################