use strict;
use warnings;

while (<DATA>) {
  print "$_";

  if ($_ =~ /\d{7}</) {
    print "\tMATCH\n";
  } else  {
    print "\tNO MATCH\n";
  }
}

__DATA__
<SPAN class=3D319263020-11082003>Test Hello</SPAN>
<SPAN class=3D319263020-11082003>1234567</SPAN>
[download]