#test.dat has one line: bell:\007
open(IN, "test.dat");
while(<IN>){
  /(.*):(.*)/;
  $test{$1} = $2;
}
print $test{bell} . "no bell\n"
$test{bell} = "\007";
print $test{bell} . "bell\n";