foreach $message (@logs)
         {
if ($message =~ /msg=\"+((?:([^:,]+):\s|)([^,]+?)\s*(?:\s*,.*?|))\"+/)	
                  {
		print $message"\n";
		}

	}