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.