Help for this page
#!/usr/bin/perl use 5.10.0; ... $string =~ /$re/g; say $&;
simple
my $re = qr/(?:(simple).*?){3}/;
simple thing just a simple simple