---
name: "Lingua::EN::FindNumber"
section: "3pm"
platform: "linux"
package: "liblingua-en-findnumber-perl"
version: "1.32-3"
release: "Debian 13 (Trixie)"
platforms: ["linux"]
url: "https://new.carta.tech/Lingua::EN::FindNumber"
---

# Lingua::EN::FindNumber(3pm)

Locate (written) numbers in English text

## NAME

Lingua::EN::FindNumber - Locate (written) numbers in English text

## SYNOPSIS

```
  use Lingua::EN::FindNumber;
  my $text = "Fourscore and seven years ago, our four fathers...";
  numify($text); # "87 years ago, our 4 fathers..."
  @numbers = extract_numbers($text); # "Fourscore and seven", "four"
  while ($text =~ /$number_re/g) { # Build your own iterator
```

## DESCRIPTION

This module provides a regular expression for finding numbers in English text. It also provides functions for extracting and manipulating such numbers.

## EXPORTED METHODS

### extract\_numbers / numify / $number\_re

```
  numify($text); # "87 years ago, our 4 fathers..."
  @numbers = extract_numbers($text); # "Fourscore and seven", "four"
  while ($text =~ /$number_re/g) { # Build your own iterator
```

## SEE ALSO

This module was written for the Natural Languages chapter of the second edition of Advanced Perl Programming.

This module works rather well in conjunction with Lingua::EN::Words2Nums, which is a very cool module anyway. (And Simon stole some of this module's code from it. Thanks, Joey!) It may also be involved with Lingua::EN::NamedEntity in the future, so check that one out too.

## REPOSITORY

\<https://github.com/neilb/Lingua-EN-FindNumber\>

## AUTHOR

This module was originally written by Simon Cozens. It was then maintained from 2004 to 2005 by Tony Bowden. Since 2014 it has been maintained by Neil Bowers.

## BUGS and QUERIES

Please direct all correspondence regarding this module to:\
   bug-Lingua-EN-Number@rt.cpan.org

## COPYRIGHT AND LICENSE

Copyright 2003-2005 by Simon Cozens

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.