BEGIN { $^I = ""; }
LINE: while (defined($_ = <ARGV>)) {
    s[value-of-SOURCE/value-of-SAMS/][]g;
    s[value-of-SOURCE/value-of-SAMLIB/][]g;
    s[value-of-SOURCE/value-of-SMCLIB/][value-of-SOURCE/value-of-KENO/]g;
    if (not m[^value-of-SOURCE/]) {
        s[value-of-SOURCE/][$${OBJECT}/]g;
        print $_;
    }
}