open ($fh,'<','config.dat') or die $!;
my $config_neu;
{ 
$/ = undef;  # kein Zeilentrenner beim Einlesen verwenden
my $s= <$fh>; # in einem Rutsch einlesen
$s=~s|\$VAR1|\$config_neu|; # Zielvariable für eval setzen
eval "$s";                  # Code ausführen
}
print Dumper($config_neu);