if ($string =~ tr/0-9//c) { 
  print "String besteht nicht nur aus Zahlen!"; 
}