do { local $/ = "fieldname"; <$fh> };  # read through "fieldname"

##</code><code>##

my $header_line = "fieldname" . <$fh>; # complete the line