fork download
copy 
  1. #!/usr/bin/perl
  2. use strict; use warnings;
  3. use Data::Dumper;
  4.  
  5. my $text = 'XYYYZ';
  6. my @source;
  7. push @{$source[$1 ? 0 : $2 ? 1 : 2]}, $& while $text =~ /(X)|(Y)|(Z)/g;
  8. print Dumper \@source;
Success #stdin #stdout 0.02s 7248KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
$VAR1 = [
          [
            'X'
          ],
          [
            'Y',
            'Y',
            'Y'
          ],
          [
            'Z'
          ]
        ];
https://ideone.com/QUfuUp
Repeated match
language:
Perl (perl 5.28.1)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!