Re: why warn on undefined $1?

ihok@xxxxxxxxxxx wrote:
how can I store the s/// regexp in a variable? I want
something like qr//, but for s///. In other words, I want this to
work, but it doesn't.

my $re = s/or(ed|ing|s)?$/our$1/;

my $re = 's/or(ed|ing|s)?$/our$1/';

my $s = 'colored';
$s =~ $re;

eval "\$s =~ $re";

print $s;
# coloured

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
.