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