for my $line(split /\n/,$header){
    # process $line as though it came from a <>
}