Zeichenkette um jedes zweite Zeichen verkuerzen

[Erwin]

hi CK,

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;

Coole Mucke!

Gruss, Erwin