#!/bin/perl

# delete CR/NL in text-file



while (<>) {
   chomp;
   $_=$_ . " ";
   s/@/\n/;
   s/- //;
   print;
}