Help for this page

Select Code to Download


  1. or download this
    use 5.010;
use strict;
...
say $str =~ m/bar(\d+)/i ? "GOT $1" : "NO MATCH";
use re::engine::SaneDigits;
say $str =~ m/bar(\d+)/i ? "GOT $1" : "NO MATCH";
  2. or download this
    use 5.010;
use strict;
...
say $str =~ m/bar(\d+)/i ? "GOT $1" : "NO MATCH";
use re::SaneDigits;
say $str =~ m/bar(\d+)/i ? "GOT $1" : "NO MATCH";