Select Code to Download

find /cdw/home_dir/ -name "*.sas" | xargs perl yourprog.pl

use strict;
use warnings;
...
      print "Found $word in $ARGV\n" if (/\Q$word/);
   }
}