Select Code to Download

grep { print scalar (@params = /^\s*(?:(?:public|private|protected)\s+
+)?\w+\s+\w+\s*\(([^,]+)(\,[^,]+)*\)/g);} <>;

perl test.pl FILENAME

grep {
    print scalar # print the number of items matched
...
                     # use them
                    /gxms);
} <>; # read from keyboard or the file(s) provided on command line