Elegante Lösung - String kürzen

[Rolf Rost]

Moin,

hab einen sehr langen String in $name, der soll so gekürzt werden, dass die ersten 8 Zeichen, 2 Punkte, die letzten 8 Zeichen dann drinstehen.

12345678..87654321

Habe das bisher ein bischen umständlich gemacht:

# name in ein array verwandeln
 my @a = split //, $name;

# leermachen...
 $name = '';

# und neu zusammensetzen
 for(0..8){ $name .= $a[$_] }
 $name .= '..';
 for(-8..-1){ $name .= $a[$_]}

Geht das auch ein bischen eleganter ?

Gruss, Rolf