if ($text =~ /FATAL: Error ... /){

    my @parts = split /\s+/, $text;
    my $dt = "$parts[0] $parts[1]";
    my $msg = $parts[6];
    my $source = $parts[8];
    my $destination = $parts[10];
    ...

}