Ersten Buchstaben gross

[gertru.de]

Hallo,

ich möchte den ersten Buchstaben einer Zeichnkette durch den entsprechenden Grossbuchstaben ersetzen. Bisher mache ich das so:

$text =~ s/(.)(.*?)/$2/;
    my $temp = $1;
    $temp =~ tr/[a-z]/[A-Z]/;
    $text = $temp.$text;

Geht das auch irgendwie kürzer und/oder schneller.

Vielen Dank
gertru.de

PS: Ich hoffe, diesmal bleibt mein Thread erhalten, ist nämlich schon der dritte Versuch ...