if ($line =~ /^.{14}801/)