if ( my (@caps) = ($line =~ $re) ) {
        no warnings 'uninitialized';
        @caps = () if $caps[0] ne $1;           # reset pseudo captures
        $cb->(@caps);
        last;
    }