$/ = '//'; # input record separator print join( " ", grep { s/^DE\s+// } split /\n/ ), "\n" while ;