# Would like to see the page source but this will work
# for one target string per line.

# $_ contains mypage.html
 
print $1 if /\s(DE\d{6})/;