#!/usr/bin/perl -w
use strict;

my @data = do{local $/ = "\n["; (<DATA>)};
 
@data = map{ s/\n/ /g; s/\[//g; s/\]/ ==/g;  $_}@data;

print join "\n", @data;

=prints
2012/02/16 00:08:34 == 29 == ERRORMSG unknown error Can't insert into price table Please check Valueprice.pm line 52. 
2012/02/16 00:08:34 == 39 == ERRORMSG Invalid User 
2012/02/16 00:14:52 == 105 == ERRORMSG missing conversion rate 
2012/02/16 00:14:52 == 29 == ERRORMSG Can't use an undefined value as a HASH reference at Value.pm line 77. 
=cut

__DATA__
[2012/02/16 00:08:34] [29] ERRORMSG unknown error Can't insert into price table
Please check
Valueprice.pm line 52.
[2012/02/16 00:08:34] [39] ERRORMSG Invalid User
[2012/02/16 00:14:52] [105] ERRORMSG missing conversion rate
[2012/02/16 00:14:52] [29] ERRORMSG Can't use an undefined value as a HASH reference at Value.pm line 77.