Select Code to Download

Select or download this
```
...
while ( $line = <> )
...
```

[2012-09-14 16:55:22,498] [ACTIVE] ExecuteThread: '8' for queue: 'webl
+ogic.kernel.Default (self-tuning)' (com.this.perl.seems.kinda.Cool:di
+ sconnectCORBA:154) INFO - Well this is just one line text
[2012-09-14 16:55:22,498] [ACTIVE] ExecuteThread: '8' for queue: 'webl
+ogic.kernel.Default (self-tuning)' (com.this.perl.seems.kinda.Cool:di
+ sconnectCORBA:154) INFO - Well this is just multiple line text
With formats Like this
***** Some other text **** then some more text on another line
[2012-09-14 16:55:22,498] [ACTIVE] ExecuteThread: '8' for queue: 'webl
+ogic.kernel.Default (self-tuning)' (com.this.perl.seems.kinda.Cool:di
+ sconnectCORBA:154) INFO - Well once again this is part starts with b
+racket and blah blah blah

Select or download this

use strict;
use warnings;
...
chomp @infos;

print join "\n--##--\n", @infos;

Select or download this

Well this is just one line text
--##--
...
***** Some other text **** then some more text on another line
--##--
Well once again this is part starts with bracket and blah blah blah