while (<>) {
 for (split /-/,$_) {
  print $_ . "\n";
 }
}