my $header_format = 's'x50 . 'c'x150;
read FILE, $line, length $header_format;
my @header = unpack( $header_format, $line );