Expresion regular?

[chefnelone]

Hola
necesito ayuda hacer una expresion regular para chequear que Solo tenga:
4 números y una coma ','
o
4 números y un punto '.'

he probado con

$isValidPrecio=eregi("(?=.*\d)(.|,).{5}", $valor);
pero nada.
alguna idea

gracias
saludos

[Ronruby]

Usa: /^\d{4}(\.|,)$/i

4 digitos + 1 coma o punto.