http://qs321.pair.com?node_id=570545


in reply to How to extract the first elemnet from an integer type value ???

or use a regex
print $num =~ /^(.)/;
Boris