#!/usr/bin/perl

$OUT="";
$N=0;

while (<>) {

  ($a,$b)=(/(.*)=(.*)/);
  $b=~s/"//g;
  if ($b !~ /\:/) { if ($a and $b) { $OUT .= "$a\n$b\n"; $N++ } }

};

print "$N\n$OUT";