[perl] Concatenare due linee di testo

[DesperatePerler]

Ciao a tutti,

sto sbattendo la testa da una settimana su un log da parsare.
La situazione è la seguente:

Linea 1. 03626470,Utente sconnesso dal sistema,11052010085105,60.16.1.149
Linea 2. 16053070,Acquisito SN=[PESCARA-SNPE02] Elemento=
Linea 3. [SELA:K2000:CABINET1:X252:PORTAG] Cod[6] data_iniz[06/05/2010 
Linea 4.
Linea 5. admin,Utente connesso al sistema,11052010091657,150.122.3.61

Come vedete la linea 2 e 3 sono spezzate in due.
Per intenderci, l'output del parser deve essere questo:

Linea 1. 03626470,Utente sconnesso dal sistema,11052010085105,60.16.1.149
Linea 2. 16053070,Acquisito SN=[PESCARA-SNPE02] Elemento=[SELA:K2000:CABINET1:X252:PORTAG] Cod[6] data_iniz[06/05/2010
Linea 3. admin,Utente connesso al sistema,11052010091657,150.122.3.61

Queste linee fanno parte di log che viene mandato in "pasto" al parser (cat file.log | parser.pl > out.log)
Come posso realizzarlo in Perl??

Grazie a tutti!!!

[Mich_]

Cioe` stai leggendo un file (o porta) contenente il pezzo postato per primo e vuoi uscire con il pezzo secondo?

La concatenazione in Perl si fa con l'operatore . (punto).
esempio (supponendo di avere le varie linee in variabili chiamate $linea1, $linea2, ...:

print $linea1\n$linea2.$linea3.$linea4\n$linea5\n;