>>381
> s/$pattern/eval qq|"$str"|/eg;
オプションのeは、evalと同義なので
s/$pattern/qq("$str")/eeg;
で、よさげ。

>>384
> $str = '\\t'　と　$str = '\t'
' '内でも \' と \\は、展開されるからだと思う。