#!/bin/perl

# change NL to space in text-file



while (<>) {
   chomp;		# deletes NL
   $_=$_ . " ";		# appends space
   s/@/\n/;		# changes '@' to NL
   s/- //;		# deltes '<dash><space>'
   print;
}
