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

##</code><code>##

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

##</code><code>##

$first_char = unpack 'a', $string;