Select Code to Download

sub capture_numbers {
    my ( $search_phrase ) = @_;
    croak "Search phrase $search_phrase lacks capturing parentheses" 
...
        push @results, $desired_number;
    }
}