Shell Programming and Scripting

$str=shift @ARGV;
while(<>){
        # match function name and save name and line to display later in
        # case the RA is found
        if(!$sw && /(.+\(.*\))/){
                $func_name=$1;
                $func_start=$.;
                $sw=1;  
                @ra=();
                next;
        }       
        # those counters basically server to know if we are ($c>0) or not ($c==0) 
        # inside a function body i.e. between { and } 
        $c++ if $sw && /\{/;
        $c-- if $sw && /\}/; 

        # match RA string and save it in a list
        if(/\/\*RA (.+)\*\//){
                push(@ra,$1);
        }       
                
        # flag to know if the RA in questions was found, so we'll preint everything
       # we've saved   
        if(/\/\*RA $str/){ 
                $print=1;
        }       
                
        # if we are at the end of a function $sw==1 and $c==0 then 
        if($sw && $c==0){ 
            # we test if any of the RAs in the function was the one we were 
            # looking for, if so print all the elements
                if($print){
                        print "function $func_name\n";
                        print "start line $func_start\n";
                        print "end line $.\n";
                        print "ra's:\n  ".join("\n  ",@ra)."\n";
                        $print=0;
                }
                $sw=0;
        }       
}