After removing some backslashes that shouldn't(?) be there, and running what's left through Deparse (perl -MO=Deparse -c -e ...), I got:

s[$SOURCE/$SAMS/][]g;
s[$SOURCE/$SAMLIB/][]g;
s[$SOURCE/$SMCLIB/][$SOURCE/$KENO/]g;
if (not m[^$SOURCE/]) {
    s[$SOURCE/][$$OBJECT/]g;
    print $_;
}
[download]

Does that help?