$str = join "", map {my $_ = $_; /^"/ && s/\t+//g; $_} $str =~ /"[^"]*"|[^"]*/g;