CPP_PROJ=/nologo /MDd /W3 /Gm /GX /ZI /Od /D "_DEBUG" /D "_LIB" /D "_F
+P_BKLIB" /D "_MBCS" /D "FTLIB" /D "_AFXDLL" /D "WIN32" /FR"$(I
NTDIR)\\" /Fp"$(INTDIR)\ApplicationObject.pch" /YX /Fo"$(INTDIR)\\" /F
+d"$(INTDIR)\\" /FD /GZ /c
[download]

(my @d) = $str =~ m!/D\s+"([^"]+)"!g;
my $var = join " ", map{"-D$_"}@d;
[download]

Last Question :-) I open file to read and should retrevie all the lines start with " SOURCE=.\" as display below:


SOURCE=.\ApplicationObject.cpp
SOURCE=.\BusinessObject.cpp
SOURCE=.\ClientObject.cpp
SOURCE=.\ComponentServer.cpp
SOURCE=.\main.cpp
SOURCE=.\posix_timer.cpp
SOURCE=.\ServiceServer.cpp
SOURCE=.\SystemObject.cpp
SOURCE=.\TestProgram.cpp
SOURCE=.\workflow.cpp
[download]


I need to initialize variable only with the file name, so finally I should have:
$fileLst=" ApplicationObject.cpp BusinessObject.cpp ClientObject.cpp ComponentServer.cpp" My current code is:

foreach my $line (<MAKFILE>) {
         chomp $line;
        if ($line =~ m/SOURCE=\.\\(.*)$/i) {
            push @fileLst, $1;
        }
    } 
    close MAKFILE;
    
    $fileLst = join " ", @fileLst;
    return $fileLst;
[download]


The final result includes garbage: "workflow.cppcppppppp".
Please advice. Thanks.