Select Code to Download

sub extract {
    $_ = shift;
...
    push @extract_i, $_[0];
    my $i_pstn = join('-', @extract_i);
}

sub extract {
    return join('-', (split(/:/, shift))[1,2], shift);
}