my $inputstring = qq{field1\tfield2\t\"field3\t\t\"\tfield4\n};

$inputstring =~ s{("(?: (?> [^\"\\]+ ) | \\ . )*")}{ (my $str = $1) =~ s/\t//g; $str }xesg;

print $inputstring;