say 'perl Perl PERL' =~ /${Re::re()}/g;