http://qs321.pair.com?node_id=1092718


in reply to Treating a variable as a variable in a regular expression?

perl -e 'sub foo {return qq|abracadabra|}; my $line = qq|hi there: sub
+|; if($line=~s/sub/&foo/eg){print $line};'

[download]

Prints

hi there: abracadabra

[download]

Celebrate Intellectual Diversity

In Section Seekers of Perl Wisdom