use strict;
use charnames ':full';
use Mail::RFC822::Address qw(valid);
use Encode::Punycode;
use Encode;

my $email_address = "\N{ARABIC SIGN SALLALLAHOU ALAYHE WASSALLAM}" . '@' . "\N{CYPRIOT SYLLABLE TA}" . 'be';
my $puny = encode('Punycode', $email_address);
print "$puny\n";
print "That's a valid unicode address\n" if valid($email_address);
print "That's a valid Punycode address\n" if valid($email_address);


##</code><code>##

xn--@be-0we00514a
That's a valid unicode address
That's a valid Punycode address