sub capture_numbers {
    my ( $search_phrase ) = @_;
    croak "Search phrase $search_phrase lacks capturing parentheses" 
        if $search_phrase !~ /\(/;
    my @results;
    while <LOG_FILE> {
        my ( $desired_number ) = /$search_phrase/o;
        push @results, $desired_number;
    }
}