while (my $line = <CONF>) {
    if ( $line =~ m/^(\S+?)=(.*)$/ ) {
        # bei erfolgreichem match bekommt $1 den wert aus (\S+?)
        # und $2 den wert aus (.*)
        $ENV{$1} = $2;
    }
}