If you want want to replace everything between the innermost occurrence of "aw ??? zzz" you may try this
$str =~ s/aw.*?(?!aw)zzz/awTXTzzz/;
the '.*?(?!aw)' takes care that between 'aw' and 'zzz' anything but 'aw' will match.
Doesnot work
#!/usr/bin/perl # use strict; my $str1 = qq( awbcdefaweartzzzkjkjkjawqa ); print $str1."\n\n";
$str1=~s/aw.*?(?!aw)zzz/awTXTzzz/; print $str1."\n\n";
__OUTPUT__ awbcdefaweartzzzkjkjkjawqa
awTXTzzzkjkjkjawqa
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]