$text = "Ich bin ein Text";
$first = $text =~ /^(.)/;