open F,"){ chomp; if($_=~/([\w\_]+)\s*\=\s*(.+?)\s*$/){ $ENV{$1}=$2; } } close F;