Select Code to Download

 my @com=grep defined, <F> =~ m{
     ( /\* .*? \*/) | ( \/\/[^\n]*)           
...
     | . [^/"']*                              
   }xgs;
  close(F);

$file="Finger.java";

...
    $value=$hash{$key};
    print "Line: $key\t$value\n";
  }