Como cortar cadena de texto desde carácter determinado

Hola,

En la tabla tengo unos números con el siguiente formato:

25641235612-00000001

22122-00000000002

Las longitudes son variables tanto antes del guión como después de él.

Lo que quiero es tomar el numero que está antes del guión y completarlo con ceros a la izquierda en caso de ser necesario.

No sé muy bien que función usar, lo intenté con Substr pero no pude hacerlo.

Gracias,

José Acevedo