Select Code to Download

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

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