...
my $header = <$fh>;
$header =~ s[ RecName.+$][]; ## Delete everything starting with the space before RecName