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