rtokens};
     chomp $input_line;

     # skip comments, pod, etc
     return if ( $line_type ne &#39;CODE&#39; );

     # loop over tokens looking for $`, $&amp;, and $&#39;
     for ( my $j = 0 ; $j &lt; @$rtoken_type ; $j++ ) {

         # we only want to examine token types &#39;i&#39; (identifier)
         next unless $$rtoken_type[$j] eq &#39;i&#39;;

         # pull out the actual token text
         my $token = $$rtokens[$j];

         # and check it
         if ( $token =~ /^\$[\`\&amp;\&#39;]$/ ) 