print $num =~ /^(.)/;