in reply to Capturing substrings with complex delimiter, up to a maximum

:)
#!/usr/bin/perl --
use strict; use warnings;
use Data::Dump qw/ dd /;
my $better = q{fa fa fa fa fa fa fa fa fa fa better};
my $max    = 3;
my @fa     = grep {length} split qr{(fa\S*?\s)}, $better, $max; 
dd( \@fa );
__END__
["fa ", "fa ", "fa fa fa fa fa fa fa fa better"]

[download]
  • Comment on Re: Capturing substrings with complex delimiter, up to a maximum (fafafa)
  • Download Code

In Section Seekers of Perl Wisdom