""6357445" "1349947" "0" "1" "3" "2" "1" "1" "1" "1" "-2" "1394531830" "1394531830" "1415599200" "0" "0" "0" "0" "196" "29240" "378" "1394531846" "0" "0" "0" "8201" "0" "64" "0" "2" "89799" "8201" "89805" "-1" "-1" "Local Cell id=2, Cell Name=21842C11" "0" "1394531057" "1394531057" "1415599200" "1394531092" "" "0" "RAT_INFO=GL, AFFECTED_RAT=L" "" "" "10.35.201.146" "195;" "0" "5705354" "0" "" "" "0" "0" "Cell"" #### my $file = `filename`; chomp($file); open(my $data, '<', $file) or die "Couldn't open '$file'\n "; while (my $line = <$data>){ $line =~ s/\s+/ /g ; $line =~ s/\" \"/\"\"/g ; $line =~ s/\n+//g ; $line =~ s/\s+$//; if ($line !~ /select/ && $line !~ /spool/ && $line !~ /\|\|/ ){ my @array = $line; my $result; for (@array){ chomp; $result .= $_ . " "; } $result =~ s/\s+//g; print "$result\n"; #### ""6357445""1349947""0""1""3""2""1""1""1""1""-2""1394531830""1394531830""1415599200""0""0""0""0""196""29240""378""1394531846""0""0""0""8201""0""64""0""2""89799""8201""89805""-1""-1""LocalCellid=2,CellName=21842C11""0""1394531057""1394531057""1415599200""1394531092""""0""RAT_INFO=GL,AFFECTED_RAT=L""""" "10.35.201.146""195;""0""5705354""0""""""0""0""Cell""