perl -n -e 'while(m/\b(DE\d{6})/g){print "$1\n";}' mypage.html