Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. Get all numbers
#!/usr/bin/perl
use warnings;
my $text = "3 A, 2 B, and 0 C";
$text =~ s/\b(\d+)\b/$1 > 0?$1 > 1?$1 > 2? "Several":"A pair of":"One":"No"/ge;
print $text, "\n";