fork(1) download
copy 
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use feature 'say';
  5.  
  6. my $regex = qr/(?=\p{Lu})(?i:daisy|john|fred|june)/;
  7.  
  8. my $test = 'Later John said blah and JOHN said ignore john .....';
  9.  
  10. while( $test =~ /($regex)/g ) {
  11.     say $1;
  12. }
Success #stdin #stdout 0.01s 7972KB
comments ()
stdin
copy 
Standard input is empty
stdout
copy 
John
JOHN
https://ideone.com/GER7qX
language:
Perl (perl 5.28.1)
created:
8 years ago
visibility:
secret

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!