if (length($line) >= 15 && substr($line, 14, 3) eq '801')