open (my $fh, '<:encoding(UTF-8)',$inputFile) || die "file $inputFile konnte nicht geoeffnet werden\n"; my $bom=1; %exportHash = map { chomp; s/^\xEF\xBB\xBF// if($bom); $bom=0; split /\s*$seperatorChar\s*/, $_, 2; } <$fh>; close($fh);