sub parse_message {
  my $self = shift;
  my $source_email = shift;

  my $found_address = 0;
  my $address_line_count = 0;
  my($name_raw,$city_state_zip);
  my($date,$email,$name,$address1,$address2,$city,$state,$zip);

  my @lines = split($/,$$source_email);
  LINE: foreach my $line (@lines){
    my $regex = '^Date:';
    print STDERR $regex, "\n";
    print STDERR $line,"\n";
    if($line =~ m/$regex/){  # <--- line 98
      $date = $line;
      $date =~ s/^Date: //;
      next LINE;
    } elsif($line =~ m/^From: /){
      # . . . etc. 
    }
  }
  return;
}