Perl で sscanf

Perl　で例えば　201２年9月1日　のような日付を、2012/09/01　のような形式に変換したい場合があります。以下はそのための、sscanf　を使ったサンプルです。

---

use String::Scanf;

   my $hiduke0 = "2012年9月1日";
   my ($a,$b,$c)=sscanf('%d年%d月%d日',$hiduke0);
   printf('%4d/%02d/%02d'. "\n" , $a,$b,$c);

---