replace

my @raw_params = split /\s+/, $phone;
my @quoted_params = map { qq{"$_"} } @raw_params;
my $quoted_params_string = join ", ", @quoted_params;
my @recipients = ($quoted_params_string);
[download]

with

my @recipients = $phone =~ /[+\d]+/g;
[download]