my $file="Finger.java";
my %comments=();
open(F,"<$file") or die "Can't open $file: $!";
while(defined($_=<F>)){
 $comments{$.}=$_ if( m{...PUT THE MATCH YOU NEED HERE...} );
}
close(F);