Help for this page
s[$SOURCE/$SAMS/][]g; s[$SOURCE/$SAMLIB/][]g; ... s[$SOURCE/][$$OBJECT/]g; print $_; }