Zeichenkette um jedes zweite Zeichen verkuerzen

[Christian Kruse]

Hallo Lude,

gegeben ist eine Zeichenkette der Laenge 'n'. Aus dieser entfernt
werden soll jedes zweite Zeichen, beginnend mit dem ersten. - Wie geht's
am performatesten?

my $x = "ab" x 100;
$x =~ s/(.)./$1/g;

Grüße,
 CK