my (@matches) = ($line =~ $re)
    if (defined $&) {
        $cb->(@matches);
        last;
    }