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

my $H01record="H01".$2 ;