Select Code to Download

my %hash;
my $re= qr{
...
while(  /$re/g  ) {
    $hash{pos($_)}= $1;
}

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