Help for this page

Select Code to Download


  1. or download this
      DB<135> $str = "\tstart\tmiddle1\t\"quote1\tquote2\"\tmiddle2\tend\t
+"; 
 => "\tstart\tmiddle1\t\"quote1\tquote2\"\tmiddle2\tend\t"
...
    start***middle1    "quote1***quote2"    middle2***end    
    start***middle1    "quote1***quote2"    middle2***end    
 => 1
  2. or download this
      DB<140> p $str =~ s/ (?<!"|^) \t (?!"|$) /***/gmxr
Variable length lookbehind not implemented in regex m/ (?<!"|^) \t (?!
+"|$) / at (eval 110)[multi_perl5db.pl:644] line 2.