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

my $string = '-12,89';
if (($string =~ tr/[0-9-]//c) > 1) {
	print "Zuviel Muell drin!\n";
}


if ($string =~ /[0-9-]/) {
	print "Ja, Zahlen und/oder Minus drin!\n";
}