Config::Simpleを使用せずに設定ファイルを読み込む

ActivePerlをデフォルトでインストールした状態だと設定ファイルを読み込むためのモジュールConfig::Simpleが入っていません。
なので自作してみました。

下記のように「=」で設定値を定義している設定ファイルを読み込むソースコードです。

key1=value1
key2=value2

各行を「=」を境に置換して連想配列にkeyとvalueというかたちで値を入れ込んでいます。

my %properties;
my $line;
my $key;
my $value;

open(FILE, 'multiDeploy.properties') or die "multiDeploy.properties: $!";
while (defined($line = <FILE>)) {
    $key = $line;
    $value = $line;
    $key =~ s/=[\w\.\-:\/\\\ ]+//;
    $key =~ s/\n//;
    $value =~ s/[\w\.\-:\/\\\ ]+=//;
    $value =~ s/\n//;
    $properties{"$key"} = $value;
}