Email address including multiple comments

address-test.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Sisimai::Address;
use Data::Dumper;

my $addr = 'kijitora(Neko-Can Sale!!!!)-nyaan@exam(https://example.com/?code=22)ple.jp';
my $data = Sisimai::Address->find($addr);

warn 'Email = '.$addr;
warn Data::Dumper::Dumper $data;

# Email = kijitora(Neko-Can Sale!!!!)-nyaan@exam(https://example.com/?code=22)ple.jp at address-test.pl line 10.
# $VAR1 = [
#           {
#             'comment' => '(Neko-Can Sale!!!!) (https://example.com/?code=22)',
#             'name' => 'kijitora-nyaan@example.jp',
#             'address' => 'kijitora-nyaan@example.jp'
#           }
#         ];
#