Select Code to Download

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);