Select Code to Download

     73 sub extract {
     74    $_ = shift;
...
     76    push @extract_i, $_[1];
     77    my $i_pstn = join('-', @extract_i);
     78 }