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