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

##</code><code>##

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