Whole regexp string as variable

Question

my $re = 's/foo/bar/g';
my $x = 'one two foo';

$x =~ $re;

How to do this?

my $re1 = 'foo';
my $re2 = 'bar';

my $x = 'one two foo';

$x =~ s/$re1/$re2/g;

...is not a solution for me! Many thanks in advance.

Answer 1

You can use substitution inside anonymous function,

my $re = sub { s/foo/bar/g for @_ };

my $x = 'one two foo';
$re->($x);