各桁の数字を取得する

↑の模範解答を読んでいたら．Dan Kogai氏の神がかったソースコードを発見．
各桁の数字を取得するのに，こうすればいいということを今更ながら知る．

my $n = 4649
my @d = ( $n =~ /(\d)/g );
print "@d\n"

出力結果：
4 6 4 9

その発想はなかったわｗｗ
ものすごくPerlらしい．