Hmm i see.. but i cannot make this run!! Iīm a little bit of newbie in the Perl Language!!!!!

Can you explain me why does my code donīt work!??

$file="Finger.java";


open(F,"$file");
undef $/;

my %hash;
my $re= qr{
     ( /\* .*? \*/) | ( \/\/[^\n]*)
     | " (?: [^"\\]* | \\. )* "
     | ' (?: [^'\\]* | \\. )* '
     | . [^/"']*
   }xs;

while( /$re/g  ) {
    $hash{pos($_)}= $1;
}

my @nl;
while( /\n/g  ) {
    push @nl, pos($_);
}
my $ln= 1;
while( /$re/g  ) {
    $ln++   while  $nl[$ln-1] < pos($_);
    $hash{$ln}= $1;
}

@keys=sort {$a<=>$b} (keys %hash);
  foreach $key (@keys) {
    $value=$hash{$key};
    $hash_ordenada{$key}=$value;
    print "Line: $key\t$value\n";
  }
[download]

Thank you very much!

nofernandes!