You could also use

$string =~ /^(.)/;
$first_char = $1;
[download]

or

@chars = split //, $string;
$first_char = @chars[0];
[download]

or

$first_char = unpack 'a', $string;
[download]

but, in general, substr is the better option.