Perl で正規表現にマッチした文字列を変数に入れる

びっくりするくらい毎回書き方を忘れるのでメモっておく。

• 例

perl -e '$s="hogehoge2009";($s1,$s2)=$s=~/^([a-z]+)([0-9]+)$/;print "$s1:$s2\n";'

• 実行結果

hogehoge:2009