while ( <IN> )
{
    chomp;
    if ( substr( $_, 17, 1 ) eq ':' or /^ </ )
    {
        # we are in the header
    }
    else
    {
        # now we are in the data
    }
}