fork(1) download
copy 
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4.  
  5. my $s = 'Noot thiis <begin> buut theese need too bee chaanged <end> buut noot heeree eitheer';
  6. $s =~ s{(<begin>[^<]*(?:<(?!end>)[^<]*)*<end>)}{ $1 =~ s/([eiaou])\1/\u$1/gr }eg;
  7. print $s;
Success #stdin #stdout 0s 6188KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Noot thiis <begin> bUt thEse nEd tO bE chAnged <end> buut noot heeree eitheer
https://ideone.com/CurRK6
language:
Perl (perl 5.28.1)
created:
9 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!