Select Code to Download

#!/usr/bin/perl
use 5.10.0;
...
$string =~ /$re/g;

say $&;

simple

my $re = qr/(?:(simple).*?){3}/;

simple thing just a simple simple