Help for this page
if (length($line) >= 15 && substr($line, 14, 3) eq '801')
if ($line =~ /^.{14}801/)