perlではまったところ

またしょうもないところで時間を使ってしまった…
perl 初心者のための注意点

・条件式に注意！
数値か文字列かで演算子が異なる。（数値の場合 ==、文字列の場合 eq とか…）

・正規表現のマッチ範囲に注意！
（）でくくった部分を後で変数として使う場合、例えば、

　$line =~ /FROM (.+) .*/

のような場合、$1 は、「"FROM" の後のスペースで囲まれた部分」だが、

　$line = "FROM a to b to c"

の場合、

　$1 = "FROM a to b to"

となる。つまり、FROMの後のスペースから、一番右側のスペースの間、ということ。

　$line =~ /FROM ($w+) .*/

とすれば、$1=a となる。