¿Cómo mostrar 25/04/10 al 2010-25-04?

my$str= '4/25/10';
my$sr = join(' ',split (/\//,$str));
#my$s = sprintf '%3$d %2$d %1$d',$srt;
print$sr,"\n";

salida:

4 25 10

Pero quiero salida como2010-25-04Puede sugerirme cómo mostrar la salida de mi deseo. Déme su sugerencia de que las respuestas serán apreciables.