Evitar que mi código muestre las extensiones de los archivos

[netkuup]

No tengo ninguna variable llamada $imagen, la variable que se imprime es $archivo, porqué quiero que el texto se me muestre asi:

&imagen1=casa.png&imagen2=arbol.png&imagen3=lapiz. png

Pero sin las extensiones ".png".

He provado esto:

stristr($archivo, '.', true);

Pero entonces me devuelve esto:

&imagen1=.png&imagen2=.png&imagen3=.png

Tendria de ser esa misma funcion pero que borrara del punto hacia el otro lado (incluido el punto), como se puede hacer?

Gracias.