How to do multiple substitutions with one RegEx?

[vennila]

How to mention more than one operation in substitution . Like,

use strict;
use warnings;


my $string="welcomezxyaaaaa";

$string=~s/([b-w]+)[^a]+([a]+)/uc($1)/ge;
print $string;

In the above code,I want to upper case both the $1 and $2 in the string.How to do it?

[graff]

If I understand your question...

$string=~s/([b-w]+)([^a]+)([a]+)/uc($1).$2.uc($3)/e;

Or, without putting eval code in the replacement:

$string=~s/([b-w]+)([^a]+)([a]+)/\U$1\E$2\U$3/;

[almut]

As already said, when you specify eval (/e), you can use any valid Perl code for the substitution, such as string concatenation.

In the special case here (i.e. upper-casing), and because the substitution side by default acts like a double quoted string, you could also make use of \U...\E and just interpolate $1 and $2, so you don't need eval.

Both of these variants would produce "WELCOME foo AAAAA" with your input:

$string=~s/([b-w]+)[^a]+([a]+)/uc($1)." foo ".uc($2)/ge;

$string=~s/([b-w]+)[^a]+([a]+)/\U$1\E foo \U$2\E/g;   # without /e

[vennila]

Thanks to all.

[k_manimuthu]

$string=~s/([b-w]+)[^a]+([a]+)/uc($1)." Your Text ".uc($2)/ge;

while you use evaluation in regex part, you will be use the concat operator.