foreach my $line (<MAKFILE>) {

##</code><code>##

        if ($line =~ m/SOURCE=\.\\(.*)$/i) {

##</code><code>##

    $fileLst = join " ", @fileLst;

##</code><code>##

sub domkfile {
    my ($fname, @flist)=shift;
    open my $fh, '<', $fname or die "Can't open `$fname': $!\n";
    push @flist, /SOURCE=\.\\(.*)$/i while <$fh>;
    "@flist";
}

##</code><code>##

sub domkfile {
    my $fname=shift;
    open my $fh, '<', $fname or die "Can't open `$fname': $!\n";
    join ' ' => map /SOURCE=\.\\(.*)$/i, <$fh>;
}