くだすれPerl（超初心者用）3

[0231 nobodyさん 2009/08/22(土) 05:10:44 ID:???]

#!/usr/local/bin/perl --

$a = "[123][456][789]";

while($a =~ /[(.*?)]/){
print $1"\n";
}

123、456,789と表示したいです
一回ずつづらしてマッチさせられないですか？