minor correction. chop returns the character removed.

$string = "abc";
print chop $string;  # prints 'c'
print $string;       # prints 'ab'
[download]

/\/\averick
perl -l -e "eval pack('h*','072796e6470272f2c5f2c5166756279636b672');"