programming-examples/perl/String/find the character's value by using the ord() function.pl

#!/usr/bin/perl

use warnings;
print"A # has ASCII value ", ord("#"),"\n";
print "A * has ASCII value ", ord("*"),"\n";