Help for this page

Select Code to Download


  1. or download this
        $str = "abracadabra";

...
     $str =~ m/ a (.*) a (.*)(?{push @substrings, $^N}) (?!) /x;
     use Data::Dumper 'Dumper';
     print Dumper [ @substrings ];
  2. or download this
        my $regex="a (.*) a(.)*";
    $str =~ m/ $regex(?{push @substrings, $^N}) (?!) /x;
  3. or download this
    Eval-group not allowed at runtime, use re 'eval' in regex m/ a(.)*a(?{
+push @subs
trings, $^N}) (?!) /
  4. or download this
    $str =~ m/$regex(?{push @substrings, [$^N,$pos,length $^N]}) (?!) /x;