sample for use Perl's attirbute.
script for calculate palindrome numbers in string.