How to do multiple substitutions with one RegEx?

vennila has asked for the wisdom of the Perl Monks concerning the following question:

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;
[download]

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

Comment on How to do multiple substitutions with one RegEx? Download Code

Replies are listed 'Best First'.
Re: How to do multiple substitutions with one RegEx? by graff (Chancellor) on May 06, 2010 at 07:04 UTC
If I understand your question... `$string=~s/([b-w]+)([^a]+)([a]+)/uc($1).$2.uc($3)/e;` [download] Or, without putting eval code in the replacement: `$string=~s/([b-w]+)([^a]+)([a]+)/\U$1\E$2\U$3/;` [download]	[reply] [d/l] [select]
Re: How to do multiple substitutions with one RegEx? by almut (Canon) on May 06, 2010 at 07:09 UTC
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` [download]	[reply] [d/l] [select]
Re^2: How to do multiple substitutions with one RegEx? by vennila (Novice) on May 06, 2010 at 07:38 UTC
Thanks to all.	[reply]
Re: How to do multiple substitutions with one RegEx? by k_manimuthu (Monk) on May 06, 2010 at 06:38 UTC
`$string=~s/([b-w]+)[^a]+([a]+)/uc($1)." Your Text ".uc($2)/ge;` [download] while you use evaluation in regex part, you will be use the concat operator.	[reply] [d/l]