split bei Punkt, dann 2 Zeichen zurück

[Tetron]

Hallo zusammen,

ich habe folgendes Problem:

ich habe eine Liste:
06.50
 Infomercial

07.20
 Infomercial

07.50
 Infomercial

Diese soll aber so aussehen:
06.50 Infomercial
07.20 Infomercial
07.50 Infomercial

Nun möchte ich erst einmal alle Zeilenumbrüche entfernen:
$all~= s/[/n/r]//g;
...
dann habe ich:
06.50 Infomercial07.20 Infomercial07.50 Infomercial

und nun möchte ich "einfach" foreach "." splitten aber dann wird eben immer die 06 bzw. 07 o.ä. abgeschnitten. Daher müsste ich schon bei der Null splitten, aber da auch 12 etc. vorkommt...

Ahhhh

Vielen Dank im Voraus.

MfG
Tetron

[Lucas]

Hallo Tetron,

Splitte doch erst die Liste anhand der Zeilenumbrüche bzw. Whitespaces, und lösche dann unnötiges, somit solltest du zum gewünschten Ergebnis kommen.

Mit freundlichen Grüßen, Lucas

[Norbert Kölln]

Moin, moin!

Wie wäre es mit dem folgenden Ausdruck?
$all=~ s/\n{0,1}([\d.]+)\n/$1/g;

Norbert