Como exibir 25/04/10 a 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";

saída:

4 25 10

Mas eu quero saída como2010-25-04Qualquer um pode me sugerir como exibir a saída do meu desejo.Dê-me sua sugestão de que as respostas serão consideráveis.