in reply to Regex + substring

... sometimes there can be "-" character within the string ...

Along with JavaFan, I have no idea what's supposed to happen when a '-' character is encountered, so I'll just tiptoe quietly around that one.

Your apparent first thought about using split doesn't seem so bad: 

>perl -wMstrict -le
"my $orig = 'AABBCCDDEEFFGGHH';
 my $mod  = 'bCCDdEEFfgGH';
 ;;
 my @chunks = split /$mod/i, $orig;
 my $new = qq{\L$chunks[0]\E$mod\L$chunks[1]\E};
 print qq{'$new'};
"
'aabbCCDdEEFfgGHh'

[download]

Update 1: If there might be  * + ? [ ] etc. metacharacter-like things in the  $mod string, best to split on  /\Q$mod\E/i instead.

Update 2: A more general approach (updated again to be a lot simpler): 

>perl -wMstrict -le
"my $orig = 'fEEfoobarFIEFooBarFoEfOoBaRfUM';
 my $mod  = 'FooBar';
 ;;
 my @chunks = split /\Q$mod\E/i, $orig, -1;
 my $new = join $mod, map lc(), @chunks;
 print qq{'$new'};
"
'feeFooBarfieFooBarfoeFooBarfum'

[download]

Replies are listed 'Best First'.
Re^2: Regex + substring
by Anonymous Monk on Mar 27, 2012 at 16:10 UTC

    Sorry I just coppied the the code without looking at the text. When "-" is encounter the output would have to be the same with just the - included i.e.

    $O = "AAABBBCCCDDD";
$Mod = "BbBCc-C";

$Result = "aaaBbBCc-Cddd";

    [download]
[reply]
[d/l]

      Maybe: 

      >perl -wMstrict -le
"my $orig = 'fEEfoobarFIEFOOBARFoEfOoBaRfUM';
 my $mod  = 'Foo-Bar';
 ;;
 (my $modmod = $mod) =~ tr/-//d;
 my $new = join $mod, map lc(), split /\Q$modmod\E/i, $orig, -1;
 print qq{'$new'};
"
'feeFoo-BarfieFoo-BarfoeFoo-Barfum'

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom