Help for this page

Select Code to Download


  1. or download this
      DB<171> $str=$str0
     => " bla0 \"ignore a1\" bla1 \"ignore a2\" bla2"
    ...
    
      DB<174> $str=join '"',@parts
     => " blA0 \"ignore a1\" blA1 \"ignore a2\" blA2"
    
  2. or download this
      DB<185> $x=0;$str=$str0
     => " bla0 \"ignore a1\" bla1 \"ignore a2\" bla2"
    
      DB<186> $str= join '"', map {s/a/A/ unless $x++%2;$_} split '"', $st
    +r
     => " blA0 \"ignore a1\" blA1 \"ignore a2\" blA2"