Help for this page

Select Code to Download


  1. or download this
    my $var = "my dog spot";
my $expr = qr|(my dog) spot|;
...

print $var
#error: "/\1 spooge/: reference to nonexistent group"
  2. or download this
    my $var = "my dog spot";
my $expr = qr|(my dog) spot|;
...

print $var;
#prints: (?-xism: spooge)
  3. or download this
    my $var = "my dog spot";
my $expr = qr|(my dog) spot|;
...

print $var;
#prints (?-xism: spooge)
  4. or download this
    my $var = "my dog spot";
my $expr = qq|(my dog) spot|;
my $sub = qq|\1 spooge|;  #could be $1
$var =~ s/$expr/$sub/e;
#prints " spooge"