fork download
copy 
  1. #!/usr/bin/env perl
  2. use strict;
  3. use warnings;
  4.  
  5.  
  6.  
  7. my $p = '
  8. AAA
  9. //content
  10. :AAA
  11.  
  12. ';
  13.  
  14. if (
  15. $p =~ /
  16.  
  17. (?(R)
  18.     (?P<tag>ZZZ)             
  19. |
  20.     (?P<tag>AAA)
  21. )
  22.  
  23. [^:]+
  24.  
  25. :(?P=tag)
  26.  
  27. /mx
  28.  
  29. ){	
  30. 	print "ok\n";	
  31. }
  32. else{
  33. 	print "oops\n";
  34. }
  35.  
  36.  
Success #stdin #stdout 0s 3696KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
ok
https://ideone.com/RGHaLK
language:
Perl (perl 5.28.1)
created:
10 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!