sub regex_created { '^Record created on (.*).$' }
sub regex_expires { '^Record expires on (.*).$' }
####
sub regex_created { '^\s*Record created on\s+(.*).' }
sub regex_expires { '^\s*Record expires on\s+(.*).' }
####
my $text = $self->_send_to_sock( $sock );
# ...
$self->parse_text($text);