Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
if ($line =~ /^.{14}801/)
```