my $word = "bla,-2,bla";
my @split = split(/,/, $word);

for(my $i = 0; $i < scalar(@split); $i++)
{
    if(!($split[$i] =~ /\D/ig))
    {
        warn "Zahl=" . $split[$i];
    }
}