perlで設定ファイルの読み方

○○=△△みたいな設定ファイルを読む。

# 設定ファイル
HOGE = hogehoge
PIYO = piyopiyo

use strict; use warnings;

# 連想配列に設定ファイル読み出し
my %s;
if( open FH, 'hoge.conf' ){
    while(<FH>){ $s{$1}=$2 if(/^(\w+)\s*=\s*([-.\w]+)/); }
    close(FH);
}

# 読めたか確認
while( my ($k,$v)=each %s ){ print "$k=$v\n"; }