グループにマッチした値をリストに格納する

意外とWebに情報がなかった(というか気づけなかった)のでメモ．

例えば，2009-08-31という値があり，
年月日ごとに別々の変数に値を格納したいとします．
そんな時は↓．

my $date = "2009-08-31";
my($year, $month, $day) = $date =~ /(\d+)-(\d+)-(\d+)/;

演算子を繋げるだけなのですが
これだけの事に，かなりの時間を食ってしまったOTL
1からperl勉強しようかなぁ．．．