#!/bin/perl

# deletes CR/NL in text-file etc.



while (<>) {
   chomp;		# deletes NL
   s/@/\n/;		# changes '@' to NL
   s/\x0d//g;	# deletes CR
   s/- //;		# deletes '<dash><space>'
   if ( $_ eq "" ) { next; } # deletes single line
   $_=$_ . "\n";	# appends NL
   print;
}