use Win32;
use utf8;

my $configFile='configStartup.ini';
my $UserDataReadFromFile;

open my $FH, '<:encoding(UTF-8)', $configFile;
while (my $line = <$FH>) {
	if ($line =~/^ForceDirectoryData/){
		(my $tag, $UserDataReadFromFile) = split(/=/, $line);
	}
}
close $FH;

#1 the following doesn't work (dies)
Win32::CreateDirectory ($UserDataReadFromFile) or die;

#2 it works if hardcoded
my $UserDataHardCoded='D:/Test &#1056;&#1096;&#1079;&#1077;&#1092;&#1092; &#21495;&#21484;&#21147;&#25171;&#20102;';
Win32::CreateDirectory ($UserDataHardCoded) or die;