substr

my $chr = substr($str,0,1);
[download]

ord will do it, too, but returns the ascii value of the first char of the string.