open (my $fh,'<','AllVMinfos.txt') or die $!;
my $config_neu;
{ 
$/ = undef; 
my $s= <$fh>; 
$s=~s|\$VAR1|\$config_neu|; 
eval "$s";                  
}
print Dumper($config_neu);