Select Code to Download

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

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

$first_char = unpack 'a', $string;