$string=~ s/(.)//s; $char= $1; 

##</code><code>##

$char= substr ($string, 0, 1, "");