$size++,print "-".$1."-"  while m{\b(\w+)\b}g;