Select Code to Download

sub _prepare_addresses {
  my ($self, $type) = @_;
...
    $self->{$type.'_list'} = [map {s/\s+$//;$_} $self->{$type} =~ /((?
+:[^"',]+|"[^"]*"|'[^']*')+)(?:,\s*|\s*$)/g];
  }
}