Bearbeiten einer Textdatei

[Christian Kruse]

Hi,

von euch wünsche ich mir allerdings nur den Befehl
"foreach neuer Anfangsbuchstabe" der dann beim ersten
A,B,C...,Z etwas bestimmtes einfügt, den Rest schaffe
ich grade noch so selber...

while($datei =~ /(.).*?\n/)
{
print "Erster Buchstabe: $1\n";
}

oder in einem Zeilen-Array:

foreach (@zeilen)
{
print "Erster Buchstabe: ".substr($_,0,1)."\n";
}

mfg
CK1