Search Results

you can try this...
$FILE_NAME="abc.txt";
$/="\n\n";

open(FH_R,"<",$FILE_NAME)|| die "Unable to open $FILE_NAME for reading: $!\n";
while (<FH_R>)
{
chomp;
s/\n+/=/g;
...

cat file_name| perl -e 's/(\d\-\d-\d\s\d:\d:\d)\.0/$1/gc'
this will give you desired output..