my $i=1;
while (<STDIN>) {

    if (s/^\[(\d+)-\d+/\[$1-$i/) { $i++ }
    print;


}
