while (<$fh>) {
    chomp;
    my ($date, $time, $log_lvl, $trace, $xml) = split ' ', $_, 5;
}