use Scalar::Util qw( looks_like_number );
print looks_like_number('12,48');
# --> 0