Help for this page
Select Code to Download
Select
or
download this
$string=~ s/(.)//s; $char= $1;
Select
or
download this
$char= substr ($string, 0, 1, "");