$x=0; $in=0;
$string =~ s#(")?([^" ]+)(")?#
if ($in) {
  print $2;
  if ($3) { print "\n"; $in=0; }
  else    { print " "; }
}
else {
  print "[".$x++."] $2";
  if ($in=$1) { print " ";}
  else        { print "\n"; }
}
#egx;