Help for this page

Select Code to Download


  1. or download this
      DB<135> $a='#x'
 => "#x"
...

  DB<137> "x#x#x" =~ s/$a$a/-/xr  #oops
 => "-x#x#x"
  2. or download this
      DB<138> $a=qr/#x/
 => qr/#x/
...

  DB<140> "x#x#x" =~ s/$a$a/-/xr
 => "x-"
  3. or download this
      DB<144> $a='\#x'           # or ='[#]x' 
 => "\\#x"
...

  DB<146> "x#x#x" =~ s/$a$a/-/xr
 => "x-"