#!/bin/csh -f

awk -e '{ n = split($1,array,"d"); \
	  if ( n == 1 ) n = split($1,array,"D"); \
	  if ( n == 1 ) print NR, array[1]; \
	  if ( n != 1 ) print NR, array[1] "e" array[2];}'
#