$/="\nH00"

##</code><code>##

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

my $H01record="H01".$2 ;

##</code><code>##

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