Help for this page

Select Code to Download


  1. or download this
    $rx_4333 = /(?=\d{4}$)
   (?: 4     (?: 3     (?: 3     (?: 3
...
   |   [5-9]
   )
/x
  2. or download this
    $rx_4333 = /(?=\d{4}$)
   (?: 4     (?: 3     (?: 3     [3-9]
...
   |   [5-9]
   )
$/x
  3. or download this
    my @digits = $ProdBuild =~ /([0-9])([0-9])([0-9])([0-9])$/;

...
foreach (@pattern) {
   print("Match: $_\n") if /$rx/;
}