my $input = "..//NX.env"; open(NX_ENV, "<", $input) or die "Can't open input file $input\n"; my %NX_NTF_vars; while () { chomp; if ($_ =~ /^NX_NTF_/) { my ($key, $value) = split("=", $_); $NX_NTF_vars{$key} = $value; }; };