if($string =~ /^\d+$/){
  print "Es sind nur Zahlen\n";
}