Help for this page

Select Code to Download

Select or download this
```
$/="\nH00"
```

Select or download this

$_ =~ /(\nH01)(.*)(\n)/ ;

my $H01record="H01".$2 ;

Select or download this

if ( substr ($H01record,43,2) eq "SA" )
...