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

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