while(my $line = <$log>) { 
       $n++; 
    $line =~ tr/\r\n//d; 
    if ($line =~ /^(.*)INFO:.*recvd AA_BIN_MSG_GET_WLT/) {
        $Time_Stamp = $1;
        while ( $line = <$log> ) {
...
                while ( $line = <$log> ) {