in reply to How to extract the first elemnet from an integer type value ???
print $num =~ /^(.)/; [download]