#! /usr/bin/perl

my $state = 1; # 1 for not in a run; 2 for in a run
my $next;

while ( <> )
{
        # if this line is an exten rule
        if ( /^(\s*exten\s+=>)(\s+\w+,)(\d+)(,.*)$/ )
        {
                # if we are in a set of rules
                # just give this rule the next number
                if ( $state == 2 && $prefix eq $2 )
                {
                        print "$1$2$next$4\n";
                        $next++;
                }
                # If we aren't in a set or
                # we were in a set but the
                # prefix changed (if we are in a set and the
                # prefix matches, we'd hit the rule above)
                # start a new set
                elsif ( $state == 1 || $state == 2 )
                {
                        # we are in a new state
                        $prefix = $2;
                        $next = $3;
                        $next++;
                        print;
                        $state = 2;
                }
        }
        elsif ( /^\s*;/ )
        {
                # just a comment don't change state
                print;
        }
        else
        {
                # if we see anything else, assume the end of the set
                # was reached, and put us back into the "not in
                # a run" state.
                print;
                $state = 1;
        }
}