# in a loop while reading
$_ =~ tr/-//d;
$_ =~ s/^DL\;//o;
$_ =~ s/\*$//o;