my $in=<STDIN>;
my @words;
my $joined;

$words[0] = 'NULL';

while(my $line = <STDIN>){
  @words = grep { /\S/ } split  /[:.,\s]/, $line;
  my $joined = join("-", @words);
  print "$joined\n";
}