>>663
my %hash;
open my $fh, "<", "663.txt" or die;
while (<$fh>) {
chomp;
next if $_ eq '';
my ($name, $value) = split /=/, $_, 2;
if (defined $value) {
$value =~ s/^$_(.*)$_$/$1/s for qw(" ');
}
$hash{$name} = $value;
}
close $fh;

# テスト出力
use Data::Dumper;
print Dumper(\%hash);
print "$hash{BBB} is a value of BBB\n";

# 初心者の学習には丁度いいかも。車輪は既にあるけれど。
# でも質問はもうちょっとやりたいことを整理して、伝わるように書いてね。^^;