2012-11-24 いつも混乱する perl これと chomp(my @str = <$in>); for $_ (@str) { if ($_ =~ /\[(.*?)\]/g) { print $1; } } これ while (<$in>) { if ($_ =~ /\[(.*?)\]/g) { print $1; } } どっちが良い書き方なんでしょーか。