"  KEY1 => 'VALUE1', \n   KEY2 => [ 'VALUE21',\n  'VALUE22'\n'VALUE23' ]"

##</code><code>##

my $hashref=eval "{${s}}";
if($@) {
  print STDERR "Error in input: $@\n";
} else {
  # Dump the data just read
  print("Key $_ has value ",$hashref->{$_},"\n") for keys %$s;
}

##</code><code>##

KEY1 => 'abc THIS_LOOKS_LIKE_A_KEY_BUT_IS_NOT => \'uh-oh\' this might cause trouble'

KEY2 => '.....'