my $rr = Net::DNS::RR->new_from_string(
'badtxt.krellis.us. 1234 TXT "something ;something else"'
);

print '"', $rr->rr_rdata, '"', "\n";

##</code><code>##

""

##</code><code>##

"something ;something else"

##</code><code>##

my $rr = Net::DNS::RR->new_from_string(
'badtxt.krellis.us. 1234 TXT "something \" ; \" something else"'
);

print '"', $rr->rr_rdata, '"', "\n";

##</code><code>##

"something " ; " something else"